Multiplr copies of a sheet

  • Thread starter Thread starter Roger Dodger
  • Start date Start date
R

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
 
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
 
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" <gtsmonaro350@bigpond.com>
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
 
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
 
Back
Top