Posts by Imran Anwar

Sub mymacro()
Dim foundRng As Range
Dim i As String
Set foundRng = Range("A2:I5000").Find("college")
If foundRng Is Nothing Then
MsgBox "Value not found"
Else
MsgBox foundRng.Column
End If
End Sub