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
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment