How can I move a sheet to the end of the workbook in VB?
 

I know how to move the sheets around:

Sheets("1996").Select
Sheets("1996").Move After:=Sheets(2)

But how can I move the sheet to the end of the book if the number of sheets
in the book changes often?

How can I move a sheet to the end of the workbook in VB?
 

Jon,

Try the following:

With ThisWorkbook.Worksheets
.Item("1996").Move after:=.Item(.Count)
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Jon Davie" <Jon wrote in
message
...
I know how to move the sheets around:

Sheets("1996").Select
Sheets("1996").Move After:=Sheets(2)

But how can I move the sheet to the end of the book if the
number of sheets
in the book changes often?