Sub GetSelectionAddress() ActiveSheet.Names.Add Name:="MyRange2", RefersTo:="=" & Selection.Address() End Sub