Multiplr copies of a sheet

[Roger Dodger]

I often have to create a spreadsheet that has the same info for every sheet.
For example 12 sheets, 1 for each month. I know that you can CTRL and drag
to make 1 copy of a sheet. Is there a way to make 11 copies any faster?

Thanks

Kevin

 

[Rick Rothstein]

Assuming the sheet you want to copy is named "January", select that sheet
and then run this macro... it will successively copy the selected sheet and
rename each newly inserted sheet with the name of the appropriate month...

Sub CopyActiveSheetElevenTimes()
For X = 1 To 11
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = MonthName(X + 1)
Next
End Sub

 

[Jim Cone]

You can also Ctrl and drag multiple sheets. Works in a hurry.
--
Jim Cone
Portland, Oregon USA
http://tinyurl.com/ExtrasForXL
(Excel add-in)




"Roger Dodger" <[email protected]>
wrote in message
I often have to create a spreadsheet that has the same info for every sheet.
For example 12 sheets, 1 for each month. I know that you can CTRL and drag
to make 1 copy of a sheet. Is there a way to make 11 copies any faster?
Thanks
Kevin

 

[Roger Dodger]

Excellent.

This will save me heaps of time and energy

Thanks
Kevin

 

[Don Guillett Excel MVP]

Excellent.

This will save me heaps of time and energy

Thanks
Kevin







- Show quoted text -

Or leave on ONE sheet and use data>filter>autofilter to see the
separate months