ADD (not insert) worksheets into an already exiting document

  • Thread starter Thread starter Phyllis
  • Start date Start date
P

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
 
Phyllis said:
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
Click to expand...


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
 
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
 
soundman54 said:
Sub Macro1()
Dim s
For s = 0 To Sheets.Count
Next s

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

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
 
Back
Top