Add worksheet at end or last position

B

Brent E

Good day,

I would like to set up a small VBA sub that will simply dynamically add a
sheet at the end or last position of the worsheet regardless of the no. of
worksheets in the workbook and independent of the worksheet names.

For example, if worksheetA has 2 worksheets titled, "A", and "B", if I run
the code, a sheet would be added after "B."

If worksheetB has worksheets titled: "Sheet1", "Sheet2", "Sheet3", and
"Sheet4", the code would add a sheet after Sheet4.

What is the VBA code be to do this? Please advise.

Thanks Much.

Cordially,
 
F

FSt1

hi
this might work for you
Sub addsheet()
Dim c As Long
c = Worksheets.Count
Worksheets.Add after:=Sheets(c)
End Sub

regards
FSt1
 
J

Jim May

in article (e-mail address removed), Brent E at
(e-mail address removed) wrote on 8/18/08 4:41 PM:


Sub Macro1()
Sheets.Add After:=Sheets(Sheets.Count)
End Sub
 
R

Rick Rothstein \(MVP - VB\)

This should do what you want....

Sub AddNewLastSheet()
Worksheets.Add After:=Worksheets(Worksheets.Count)
End Sub

Rick
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top