全シートA1セルフォーカスと倍率設定と1シート目選択.vba

Sub setAllSheet_zoomAndFirstSheetSelect()

zoomValue = InputBox("ZOOM倍率を10～100で入力してください", "", 100)
If zoomValue = "" Then
    Exit Sub
End If

'イミディエイトウィンドウで以下を実行
'全シートに対して繰り返しzoom(倍率)を設定する(数値は適宜修正すること)
'また最後に1シート目を選択するようにしている｡
'非表示シート､保護シートへの制御はないので適宜確認すること｡
For Each i In Worksheets: i.Select: ActiveWindow.Zoom = zoomValue: i.activate:Application.Goto Reference:=Range("A1"), Scroll:=True::next i

Sheets(1)..Select

End Sub