Tengo que encontrar un valorcelda en una hoja de excel. Estaba usando este código vba para encontrarlo:

Set cell = Cells.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

El problema es cuando tengo que encontrar el valor.solo en una columna de excel. Lo encuentro con el siguiente código:

    Columns("B:B").Select
    Selection.Find(What:="VA22GU1", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Pero no sé cómo adaptarlo al primer código vba, porque tengo que usar el valornothing.