Sub Test() Dim x As Long Dim y As Long ActiveWindow.DocumentToScreen 4.25, 5.5, x, y MsgBox "The document coordinates (4.25,5.5) converted to screen " & _ "coordinates are (" & x & "," & y & ")."End Sub