Match/resize new range based on another sheets sel

Question

Is it possible to match the range size of sheet 2 with the selected range in sheet 1?

Answer 1

First select Sheet1 and then select some block of cells. After running this macro:

Sub MatchRange()
    Dim ady As String
    ady = Selection.Address
    Sheets("Sheet2").Select
    Range(ady).Select
End Sub

you will be on Sheet2 with the same block selected.