なぜか「Nextに対応するForがありません」

A4で印刷するシートのリスト PrintA4s() について
Worksheets(PrintA4S).Select
For Each Sht In WorkSheets(PrintA4S)
With Sht
With .PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
End With
Next '※ここがエラー表示
の部分で、表題の「Nextに対応するForが・・」となる。なぜでしょう。

No.5 ベストアンサー 回答者： banzaiA 回答日時： 2024/01/29 18:40

With Sht

With .PageSetup
と　With が2回あるのに
End With　は1回のみ。

No.4 回答者： ShowMeHow 回答日時： 2024/01/29 18:01

end with　が足りないから、

with shtの後にForを探している

No.3 回答者： kigoshi 回答日時： 2024/01/29 16:20

End With　を　End With : End With　に

No.2 回答者： mimazoku_3 回答日時： 2024/01/29 15:47

こうするとどうなのかな？

Next '
End With

No.1 回答者： rabbit_9999 回答日時： 2024/01/29 15:21

Withが入れ子になっているのに、End Withが１つしかないからでは？

この回答へのお礼

End Withを追加すると、この部分は通過しました。
ありがとうございました。

お礼日時：2024/01/29 18:06