fit zoom to windows

[gidon500]

Hello i want to make a bottom that will issue  fit zoom to all windows  , not only for the active window  can any one help thanks gidon

[Oleg_Troyansky · Accepted solution]

Just include the following in your Macro function and attach it to the button:

rem ** fit active sheet to window and apply same zoom to all sheets **

ActiveDocument.ActiveSheet.FitZoomToWindow

ActiveDocument.ActiveSheet.ApplyZoomToAllSheets