Sub ScreenPoint()
Dim pLeft As Long
Dim pTop As Long
Dim pWidth As Long
Dim pHeight As Long
ActiveWindow.GetPoint pLeft, pTop, pWidth, pHeight, Selection.Range
MsgBox "Left = " & pLeft & vbLf & "Top = " & pTop & vbLf & "Width = " & pWidth & vbLf & "Height = " & pHeight
End Sub