set rng = Application.ActiveSheet.Range("A1:B3")
MsgBox rng.Address