Sub GetCoord()  
     
   MsgBox "Левая верхняя: " & Split(Selection.Address, ":")(0) & ", Правая нижняя: " & Split(Selection.Address, ":")(1)  
     
End Sub

Sub Coord()  
 
   Dim rng As Range  
   Dim iRowLeft As Long, iColLeft As Long  
   Dim iRowRight As Long, iColRight As Long  
   Dim sLeft As String, sRight As String  
     
   Set rng = Selection  
     
   sLeft = Split(rng.Address, ":")(0)  
   sRight = Split(rng.Address, ":")(1)  
     
   MsgBox "Left col: " & Range(sLeft).Column & ", Left row: " & Range(sLeft).Row & vbNewLine & _  
          "Right col: " & Range(sRight).Column & ", Right row: " & Range(sRight).Row  
 
End Sub