こんにちは
現状の設定でのvbaの出力で良ければ、 Sheet.PageSetup.Pages.Count で良いのでは?
Sheet.PageSetup.Pages.Count
Sample20210908-1.zip (16.5 KB)