Znajdź nazwę ostatniego arkusza Excel VB
LastSheetName = Sheets(Sheets.Count).Name
Salty Joe
LastSheetName = Sheets(Sheets.Count).Name