Now, save your workbook with the macro code. WsActive.Columns(“A:B”).EntireColumn.AutoFit Cells(lnRow, 2).Value = “‘” & lnCount & “-” & lnPages ‘of pages to be printed for each sheet on the TOC sheet. ‘sheetnames, add hyperlink and count & write the running number ‘Iterate through the worksheets in the workbook and create Value = VBA.Array(“Table of Contents”, “Sheet # – # of Pages”) ‘If the TOC sheet already exist delete it and add a new
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |