group multiple worksheets where page numbering for each worksheet is x of y (Page of Pages)

[schwachmama]

I have 1 workbook with 35 worksheets where each worksheet is &[page] of &[pages]. I want to select all worksheets and pdf but excel is giving me the total number of pages for all selected worksheets (e.g. worksheet one will have 4 pages but it will say "1 of 209" instead of "1 of 4"). Printing one worksheet at a time is trying, takes too long, and most of my workbooks have this issue. Is there any trick? I have limited VBA experience.

 

[halogen_bulb]

I have 1 workbook with 35 worksheets where each worksheet is &[page] of &[pages]. I want to select all worksheets and pdf but excel is giving me the total number of pages for all selected worksheets (e.g. worksheet one will have 4 pages but it will say "1 of 209" instead of "1 of 4"). Printing one worksheet at a time is trying, takes too long, and most of my workbooks have this issue. Is there any trick? I have limited VBA experience.

Use this macro below or download ASAP utility on this link http://www.asap-utilities.com/download-asap-utilities.php



Sub PrintSheets()
' This macro prints multiple selected sheets one at a time

Dim Sh As Object

For Each Sh In ActiveWindow.SelectedSheets
Sh.PrintOut
Next Sh

End Sub



Hope it helps

 

[schwachmama]

Thanks so much! that utility is very useful and does exactly what I need!!