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

Phyllis wrote:
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.

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

"Phyllis" wrote:

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

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

On Tue, 20 Jan 2009 13:30:01 -0800, Phyllis
wrote:

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

soundman54 wrote...
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

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

Thanks to soundman for the macro.


Gord

On Wed, 21 Jan 2009 01:51:01 -0800, Phyllis
wrote:

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