Thanks Don, that does it nicely for me.

Vaya con Dios,
Chuck, CABGx3


"Don Guillett" wrote in message
...
Sub activewindowzoom()
oldzoom = ActiveWindow.Zoom
' MsgBox oldzoom
ActiveWindow.Zoom = 100
MsgBox "hi there"
ActiveWindow.Zoom = oldzoom
End Sub

--
Don Guillett
SalesAid Software

"CLR" wrote in message
...
Hi All.........
I am doing a routine that runs best with the
ActiveWindow.zoom = 100

What I would like, is to be able to determine what the ActiveWindow.Zoom
setting actually is prior to running my routine, so I can change it to
100,
run the routine, and then change it back to whatever it was..........

Any help would be much appreciated........

Vaya con Dios,
Chuck, CABGx3