how would you simuletaneously insert three blank worksheets into a workbook

You could add the "Insert Worksheet" icon to your toolbar, and then ... 3
quick clicks.<g
--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"sugar" wrote in message
...
how would you simuletaneously insert three blank worksheets into a
workbook

sugar, one way with a macro,

Sub test()
Worksheets.Add Count:=3
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"sugar" wrote in message
...
how would you simuletaneously insert three blank worksheets into a
workbook

You would need a macro.

Sub Sheets_Add()
For i = 1 To 3
Sheets.Add
Next i
End Sub

If you wanted to get specific, you could give them names also.

Sub Add_Sheets()
For i = 3 To 1 Step -1
Worksheets.Add.Name = "sugar" & i
Next
End Sub


Gord Dibben MS Excel MVP


On Sun, 25 Jun 2006 11:03:02 -0700, sugar
wrote:

how would you simuletaneously insert three blank worksheets into a workbook

Hi Sugar,

Probably not helpful for this situation but just FYI you can set the default
number of worksheets in a new book at ToolsOptionsGeneral tab
and look for Sheets in new workbook.

HTH
Martin

"Ragdyer" wrote:

You could add the "Insert Worksheet" icon to your toolbar, and then ... 3
quick clicks.<g
--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"sugar" wrote in message
...
how would you simuletaneously insert three blank worksheets into a
workbook

"Ragdyer" wrote:

You could add the "Insert Worksheet" icon to your toolbar, and then ... 3
quick clicks.<g
--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"sugar" wrote in message
...
how would you simuletaneously insert three blank worksheets into a
workbook

how do I add an icon to my toolbar

You could use a macro assigned to a button on a toolbar.

Two methods......................one fixed at three sheets, one with an inputbox
for a choice.

Sub Sheets_Insert3()
Dim i As Long
On Error GoTo endit
Application.ScreenUpdating = False
For i = 1 To 3
Sheets.Add
Next i
endit:
Application.ScreenUpdating = True
End Sub


Sub Sheets_Insert()
Dim i As Long
On Error GoTo endit
Application.ScreenUpdating = False
shts = InputBox("How many sheets", , 3) '3 is default
For i = 1 To shts
Worksheets.Add
Next i
endit:
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP


On Thu, 13 Sep 2007 05:52:04 -0700, TonyK
wrote:



"Ragdyer" wrote:

You could add the "Insert Worksheet" icon to your toolbar, and then ... 3
quick clicks.<g
--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"sugar" wrote in message
...
how would you simuletaneously insert three blank worksheets into a
workbook