選択したシートでマクロを実行させるには

質問

エクセルでシートが多数あるブックで、選択状態にあるシートのみ、ページ設定の拡大縮小印刷を70%に設定したいのですが。

Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
　　With ActiveSheet.PageSetup
　　　　.Zoom = 70
　　End With
Next ws

例えば、シート4とシート5とシート6を選択状態にして上記のマクロを実行すると、シート4しか拡大縮小印刷の変更処理が行われません。
マクロの間違いを教えて下さい。

回答No.1

bonaron · ベストアンサー

> With ActiveSheet.PageSetup
　With ws.PageSetup

お礼

有難うございました。