Sub Test() Dim x As Double Dim y As Double ActiveWindow.ScreenToDocument 515, 404, x, y MsgBox "The screen coordinates (515,404) converted to document " & _ "coordinates is (" & x & "," & y & ")."End Sub