Macro to reference sheets

[aa2000]

Hi guys

Ok I have a macro which names files based on the names of certain sheets:

.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveWorkbook.Sheets.Item(10).name & "_to_" & ActiveWorkbook.Sheets.Item(1).name & ".xls"

This works as expected, but how can I change the first part to reference the last sheet of the book irrespective of its number?

Cheers

 

[Joe4]

This code should give you the name of the last sheet in your workbook:

ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Name