Option Explicit
Sub FindFirstMatchColumnA()
Dim SearchString As String
Dim FoundCell As Range
SearchString = InputBox("string to find here")
With Sheets("Sheet1").Range("B:B") 'change Sheet1 to suit
Set FoundCell = .Cells.Find(What:=SearchString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not FoundCell Is Nothing Then
MsgBox FoundCell.Address
FoundCell.Select
Else
MsgBox "Search String not found"
End If
End With
End Sub