I have the following:

Columns("A:A").Select
Selection.Find(What:="Alabama", After:=ActiveCell, LookIn:=xlFormulas,
lookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False).Activate

Now want to have a variable equal to the Row number that it finds the text.