VBA Code to Insert a Page Number in Excel

VBA Code:

' VBA Code to Insert a Page Number in Excel

Sub InsertPageNumber()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' Set the worksheet to insert the page number
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' Replace with the name of your worksheet
    
    ' Find the last used row in column A
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' Insert the page number in the last row of column A
    ws.Cells(lastRow + 1, "A").Value = ws.PageSetup.CenterFooter & " - Page " & ws.PageSetup.Pages
End Sub


Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group

Leave a Comment