在多个工作表中粘贴工作表名称

I have a workbook with over 50 worksheets. I would like to copy the name of each worksheet into a cell of that particular workbook. I can do it for one sheet at a time using a macro with the following VBA code: I have a workbook with over 50 worksheets. I wo