When you type data into an Excel workbook, the sheet's name appears ... Dim sheetName as String Add the following line to assign the tab's name to the variable:sheetName = ActiveSheet.Name ...