Sub Test_XL2K13_W10_64bits()
Dim Wh
Wh = Cells.Width
With ActiveWindow
ppx = (.ActivePane.PointsToScreenPixelsX(Wh) - .ActivePane.PointsToScreenPixelsX(0)) / Wh
ppz = (.PointsToScreenPixelsX(Wh) - .PointsToScreenPixelsX(0)) / Wh
End With
MsgBox ppx & Chr(13) & ppz
End Sub