>>787
Dim R As Range
Worksheets("Sheet1").Activate
Set R = ActiveWindow.RangeSelection