Is there any way to Copy a worksheet multiple times in the same workbook at once?
Is there any way to Copy a worksheet multiple times in the same workbook at once?
Hi, mugcy,
using VBA and a loop:
Ciao,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
Holger
Thank you Very much