Inserting Multiple Worksheets?

[Mr Zero]

Is it possible insert multiple blank worksheets into a workbook? I.E.
I want to insert 20 fresh worksheets without having to insert one shee
20 times.

Also, supposing I have a set of tabs with each one corresponding to th
day of the month, is it possible to somehow drag more worksheets tab
that would continue the naming system

 

[JulieD]

Hi

you can insert multiple blank worksheets at once, say you have three tabs
already in the workbook, you can select these three and choose insert
worksheet - you'll get three more etc ...

however, if this is for a new workbook and you want 20 tabs, choose tools /
options / general - change sheets in a new workbooks to 20 then open a new
workbook ... you'll have 20 tabs ready to go. (don't forget to change the
setting back to something a bit more realistic or you'll get 20 tabs in
every new workbook).

as for the naming of the tabs, the only way i know how to do it is to create
the tabs and then run code to name them.

something along the lines of
Sub namesheets()
Sheets(1).Activate
For i = 1 To 20
Sheets(i).Name = Format(CDate("0" & i & "/01/05"), "ddmmyy")
Next
End Sub

please post back if you want to go with the code solution and require more
information on how to put it into the workbook.

Cheers
JulieD