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
Join Our Telegram Group
Join Our WhatsApp Group
