VBA Code to Insert Multiple Worksheets in Excel

by

VBA code that you can use to insert multiple worksheets in Excel.

VBA Code:

Sub InsertMultipleWorksheets()
    Dim ws As Worksheet
    Dim numSheets As Integer
    Dim i As Integer
    
    ' Set the number of worksheets to insert
    numSheets = 5 ' Change the number as desired
    
    ' Loop to insert the specified number of worksheets
    For i = 1 To numSheets
        ' Insert a new worksheet at the end of the workbook
        Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
        ' Rename the newly inserted worksheet
        ws.Name = "Sheet" & i
    Next i
    
    ' Inform the user that the worksheets have been inserted
    MsgBox numSheets & " worksheets have been inserted!"
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