Macro to recognise and delete last worksheet in book

[ssorcp]

Hi,

As part of a macro I am making, I am trying to delete the first and last worksheets in the book. The first sheet is simple as it is always "Sheet1" but the last worksheet could vary depending on the size of the book.

Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet34").Select
ActiveWindow.SelectedSheets.Delete

So in this example the last sheet is Sheet34 but next month the last worksheet could be Sheet50.

Is there a variable I can use instead of the sheet name to recognise the last worksheet and delete it?

Thanks

[tom1977]

Hi try this

Please Login or Register  to view this content.