Найдите название последнего листа Excel VB
LastSheetName = Sheets(Sheets.Count).Name
Salty Joe
LastSheetName = Sheets(Sheets.Count).Name