Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myrange myrange = Split(ActiveCell.Address, "$")(1) MsgBox myrange End Sub