Find last filled cell in a column
 

VJ,

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub TEST()

Dim RNG As Range
Set RNG = Range("A:A").Find(What:="*", SearchDirection:=xlPrevious)
If RNG Is Nothing Then GoTo e:


'do something

MsgBox RNG.Address

e:

End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


--
Regards,
Soo Cheon Jheong
_ _
^ ^
~