Encontre o nome da última folha do Excel VB
LastSheetName = Sheets(Sheets.Count).Name
Salty Joe
LastSheetName = Sheets(Sheets.Count).Name