Hi Kirk,

Try:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "Column: " & Split(Target.Address, "$")(1) & _
vbCrLf & "Row: " & Split(Target.Address, "$")(2)
End Sub

or:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "Column: " & Target.Column & vbCrLf & "Row: " & Target.Row
End Sub

--
Cheers
macropod
[Microsoft MVP - Word]


"kirkm" wrote in message ...
When you pass Target.Address as a parameter e.g $I$3466
is there a system command to get the row and column from that?
(I know it's dead easy to DIY but just wondering).

Thanks - Kirk