Hi flipflop
try this 
Message = "Enter Permit Number/Car Registration Number" ' Set prompt.
Title = "Find Permit/Registration Number" ' Set title.
Default = "" ' Set default.
' Display message, title, and default value.
SearchString = InputBox(Message, Title, Default)
Set LookInR = Sheets("Sheet1").Range("A1").CurrentRegion
With LookInR
           Set FoundOne = .Find(What:=searchstring, lookat:=xlPart)
        If Not FoundOne Is Nothing Then
            fAddress = FoundOne.Address
            Do
                Range(fAddress).Activate
              Loop While FoundOne.Address <> fAddress
        End If
  
End With
End Sub