質問: 50 e3: worksheets("sheet" & month(now())).select end sub
回答: vitaminqqさん こんにちは。 「on error goto」を多用するとプログラムが見難くなるし「resume」が絡むのですっきりしなくなると思います。 なるべく関数やサブルーチンにして、メインを単純にするとわかりやすいプログラムになると思います。 以下、一例です。 sub bairitu() call シート倍率設定("sheet" & month(now()) - 1, 70) call シート倍率設定("sheet" & month(now()) - 2, 80) call シート倍率設定("sheet" & month(now()) - 3, 50) call シート倍率設定("sheet" & month(now()), 60) end sub sub シート倍率設定(シート名 as string, 倍率 as double) on error resume next err.clear sheets(シート名).select if err.number <> 0 then exit sub activewindow.zoom = 倍率 end sub