Hi guys,
Yesterday i had a job to make a vba to pagination. That was the working results.
Sub sheetcounter()
For i = 2 To Sheets.Count
Sheets(i).Select
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.RightHeader = "&B &Kpch&J" & ActiveSheet.Index - 1 & "\" &...