ADD (not insert) worksheets into an already exiting document

[Phyllis]

I can't seem to find info on how (if possible) to ADD - not insert -
worksheets into an already existing Excel document (as in to the end of the
worksheets already there).

Is there a way to do this without copying and pasting the data on the
current last worksheet into what will (if inserted) be a new, blank worksheet?

Please and thanks much, It is Excel 2003.

Phyllis

 

[Glenn]

I can't seem to find info on how (if possible) to ADD - not insert -
worksheets into an already existing Excel document (as in to the end of the
worksheets already there).

Is there a way to do this without copying and pasting the data on the
current last worksheet into what will (if inserted) be a new, blank worksheet?

Please and thanks much, It is Excel 2003.

Phyllis

Look at "Move or copy sheets" in the help file. If that doesn't answer your
questions, please rephrase or add more details.

 

[soundman54]

Hi Phyllis
Not quite what you mean to do ,but this might do the trick.

copy this into a macro.

Sub Macro1()
Dim s
For s = 0 To Sheets.Count
Next s

Sheets.Add After:=Sheets(s - 1)
End Sub

hope this helps , if it's not what you want or you have a problem ,then get
back to me.

Martin

 

[Gord Dibben]

Select last sheet and Insert a new sheet which will be to the immediate left
of last sheet.

Drag that new sheet to the end.

Or use a macro as posted by soundman.


Gord Dibben MS Excel MVP

 

[Harlan Grove]

Sub Macro1()
Dim s
For s = 0 To Sheets.Count
Next s

Sheets.Add After:=Sheets(s - 1)
End Sub

....

Why the loop?

Sub foo()
With ActiveWorkbook
.Sheets.Add After:=.Sheets(.Sheets.Count)
End With
End Sub

 

[Phyllis]

Gord:

Thanks so much. I know zip about macros but I did exactly what you
suggested and presto - new worksheets after the last one!

Thanks for making it easy for me.

Phyllis

 

[Gord Dibben]

Thanks to soundman for the macro.


Gord