Just use
Dim Cell As Range
Columns(“B:B”).Select
Set cell = Selection.Find(What:=”celda”, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If cell Is Nothing Then
‘do it something
Else
‘do it another thing
End If
Just for sake of completeness, you can also use the same technique above with excel tables.
In the example below, I’m looking of a text in any cell of a Excel Table named “tblConfig”, place in the sheet named Config that normally is set to be hidden. I’m accepting the defaults of the Find method.
Dim list As ListObject
Dim config As Worksheet
Dim cell as Range
Set config = Sheets(“Config”)
Set list = config.ListObjects(“tblConfig”)
‘search in any cell of the data range of excel table
Set cell = list.DataBodyRange.Find(searchTerm)
If cell Is Nothing Then
‘when information is not found
Else
‘when information is found
End If