Para utilizar o código, primeiro tem de eliminar as linhas em branco ou ajustar na rotina para começar a pesquisa pela linha 3.

Em um Módulo cole :

Public sCel
Public sLocaliza As Boolean


Public Function ProcuraRefId(ByVal RefId As String) As String
    Dim iLin As Long
    Dim sCol As Long
    
    sLocaliza = False

    Dim wsPlan1 As Worksheet
    Set wsPlan1 = Worksheets("Plan1")
    
    iLin = 2 'Linha 2
    sCol = 1 'Coluna 1
    
    With wsPlan1
    
        Do While Not IsEmpty(.Cells(iLin, sCol))

            If .Cells(iLin, sCol).Value = RefId Then
             
                sLocaliza = True 'Verdadeiro se encontrado
                sCel = .Cells(iLin, sCol).Address(False, False)
                
                Exit Do 'Sai do Loop se encontrar
            
            End If
            
            'Incrementa a linha
            iLin = iLin + 1
            
        Loop
        
    End With

End Function

No Botão OK do formulário cole a rotina abaixo :

Private Sub CommandButton1_Click()
   Dim RefId As String
    
   'Valor a pesquisar
   RefId = TextBox1
    
    If RefId = "" Then
        MsgBox "Digite um Valor Válido"
        TextBox1.SetFocus
        Exit Sub

    Else
        'Chama a Function
        ProcuraRefId (RefId)
    End If
    
    If sLocaliza = True Then
        MsgBox "Referencia :- " & RefId & " Localizada em :- " & sCel
        Range(sCel).Offset(0, 2).Value = "PAGO"
    Else
        MsgBox "Referencia não Localizada"
    End If

End Sub

[]s

Muito Obrigado era isso mesmo que eu queria,

Andre