Finding last cell

[Excelnoobisme]

i have a list of data in Column A.

how can i select the last cell in Column A that contain the word "Game" in vba?

 

[rs2k]

See if this works for you;

Sub FindGame()

   Cells.Find(What:="Game", After:=[A1], SearchDirection:=xlPrevious).Select
   
End Sub

HTH
Colin

 

[VoG]

Try

Columns("A").Find(What:="Game", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues, lookat:=xlPart).Select