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

[Jon Davie]

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?

[Chip Pearson]

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 [email protected]> wrote in
message
news:[email protected]...
>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?