"Find" function in VBA possible to find the last occurance?

[Peterso]

I wrote set f=range("A:A").find(x). How should I modify to make it to find the last occurance? Thx

 

[My Aswer Is This]

If your wanting to find the last row in column "A" with data use this:

Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

 

[steve the fish]

Like this perhaps?

myFind = "Hello"
Set c = Columns("A").Find(What:=myFind, After:=Range("A" & Rows.Count), LookAt:=xlWhole, SearchDirection:=xlPrevious)

 

[MARK858]

Slight difference to Steve the fish code...

Set f = Columns("A").Find(What:="x", After:=[A1], LookAt:=xlWhole, SearchDirection:=xlPrevious)

Reason for change is the next cell after A1 using xlPrevious is the last cell in the range.