Dim col, col1, col2, row, row1, row2
col1 = Split(Selection.Address, "$")(1)
col2 = Split(Selection.Address, "$")(2)
row1 = Split(Selection.Address, "$")(3)
row2 = Split(Selection.Address, "$")(4)
col = col1 & Replace(col2, ":", "")
row = row1 & row2
MsgBox col & " " & row