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

Join the TechGuruPlus Telegram group

Join Our WhatsApp Group

Join the TechGuruPlus WhatsApp group
Nazim Khan, founder of TechGuruPlus.com

— Founder & Editor, TechGuruPlus.com
[MBA in Finance]

Nazim Khan has spent over ten years working with Excel, Tally and office documentation in accounts, finance and MIS roles. He has been running TechGuruPlus.com since 2016, where he publishes free editable templates for office work, and the YouTube channel Business Excel. He has trained more than 50,000 people online. Every template on this site is built and checked by him before it is published.

Contact  Â·  Excel Course

Leave a Comment