Copying sheets multiple times in the same workbook

[mugcy]

Is there any way to Copy a worksheet multiple times in the same workbook at once?

[HaHoBe]

Hi, mugcy,

using VBA and a loop:


Sub mugcy()
'uses internal Sheetname

Dim lngCounter As Long
Const clngCOPY_SHEET As Long = 4

For lngCounter = 1 To clngCOPY_SHEET
Sheet1.Copy after:=Worksheets(Worksheets.Count)
'Sheets("mugcy").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "New " & Format(Worksheets.Count, "000_") & Format(Now, "yymmdd_hhnnss")
Next lngCounter

End Sub Ciao,
Holger

[mugcy]

Thank you Very much