I probably did not make my self clear enough.Hi,
You can test
VBA Code:Sub test() MsgBox Sheet2.Range("A1").Value End Sub
Public Sub subSelection()
Dim rng As Range
MsgBox Selection.Address
Set rng = Selection
MsgBox rng.Address
End Sub