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
_ _
^ ^
~
|