View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson
 
Posts: n/a
Default How do I insert a new worksheet consecutively?

You could use a macro like this:

Option Explicit
Sub InsertWorksheets()
Dim HowMany As Long
Dim iCtr As Long

HowMany = CLng(Application.InputBox(Prompt:="How many?", Type:=1))

For iCtr = 1 To HowMany
Worksheets.Add after:=ActiveSheet
Next iCtr

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Then to run it, you can just:
tools|macro|macros (or alt-F8)
select InsertWorkbooks and click run

The workbook with the macro in it needs to be open.

Carole Drake wrote:

I'm kind of new to macros - how would you go about using one for this?

"Dave Peterson" wrote:

Even inserting from the Insert|worksheet will insert before the activesheet.

I think if the OP wants more control, a macro would be in order.


"lady-pearl" wrote:

On my current Workbook I would like to insert anywhere from 1 - 10 extra
worksheets, but I notice that when I do the "insert worksheet" they are not
always consecutive. I am finding that I have to drag them back to the place
where I want them to appear originally.

Thanks!

Pearl

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson