Moving 20 individual Workbooks from 20 Emails to 20 worksheets in a single Workbook

Every month I get about 20 separate emails each with a worksheet with a single workbook. I have to combine all of these different workbooks into a single workbook with the 20 different tabs and rename each worksheet with the description found in cell L6 of each worksheet. Is there a VBA way to do this that doesn't require manual action?