PDA

View Full Version : Copying sheets multiple times in the same workbook



mugcy
03-19-2009, 07:11 PM
Is there any way to Copy a worksheet multiple times in the same workbook at once?

HaHoBe
03-19-2009, 10:09 PM
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
03-19-2009, 10:18 PM
Thank you Very much