Selecting data programmatically
thanks.
"Norman Jones" wrote:
Hi Guest,
Set Rng = Activecell.CurrentReguon
Correcting a typo, try:
'=========
Public Sub Tester()
Dim Rng As Range
Set Rng = ActiveCell.CurrentRegion
MsgBox Rng.Address(0, 0)
End Sub
'<<=========
---
Regards.
Norman
|