Thread: Page Count
View Single Post
 
Old 05-22-2022, 08:56 AM
Purfleet Purfleet is offline Windows 10 Office 2019
Expert
  
Join Date: Jun 2020
Location: Essex
Posts: 345
Purfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to behold
Default
try the below

Quote:
Sub PageCount()

Dim Pagesx As Variant

Pagesx = ActiveWorkbook.Worksheets("Sheet1").PageSetup.Page s.Count

Debug.Print Pagesx

End Sub
Reply With Quote