O código abaixo retorna a linha da coluna A que contiver o número 5. Retorna erro se não encontrar.

Sub Teste()
 Dim CÓDIGO As Integer, k As Long
  CÓDIGO = 5
  k = Columns(1).Find(CÓDIGO, lookat:=xlWhole).Row
  MsgBox k
End Sub

Renatoddd,

Boa tarde!

Eu faria assim:

Sub Localizar()
    Dim CÓDIGO As Integer
    Dim i As Long
    Dim UltimaLinha As Long
    
    CÓDIGO = txt_código.Text
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    For i = 2 To UltimaLinha
        If Range("A" & i).Value = CÓDIGO Then
            MsgBox "Localizei"
        End If
    Next
End Sub