Add New Sheet at End of Book

[shipman01]

I need the code that will add a new worksheet at the end of the workbook regardless of the number of sheets currently in the book. When I record the steps (Edit/Move or Copy Sheet / Create a copy / move to end), using relative references the code that returns is:

Sheets("New Qtr").Copy After:=Sheets(3)

Where Sheets(3) reflects the last sheet number currently in the book. This number varies. I need to new sheet to always be the last sheet, regardless of the number of sheets currently in the wb .

I'm sure there's some way to count the current sheets and dim that value for use here, but I don't know what that is.

Thanks for your help!

 

[VoG]

Try

Sheets("New Qtr").Copy After:=Sheets(Worksheets.Count)

 

[Richard Schollar]

Hi

Use this syntax:

Sheets("New Qtr").Copy After:=Sheets(Sheets.Count)

 

[Kaps_mr2]

try :-

Public Sub Sheet_add()
Sheets("New Qtr").Copy After:=Sheets(Sheets.Count)
End Sub

thanks

Kaps

 

[shipman01]

Perfect! Thanks to both of you.