間違っているところを正しく教えて下さい。 (ID:90695)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 If .PageSetup.PaperSize <> xlPaperA4 Then ではなく If sh.PageSetup.PaperSize <> xlPaperA4 Then ですね。