Click View-Toolbars-Tool Control Frame, and then click the command button in the tool control frame. Then draw a button anywhere on the worksheet, double-click the button, and the editing code interface will appear. Copy the following to the code area:

Private subcommand button 1_Click ()

Adjust a to double precision.

For a = 1 to 300

Me. Cells(a， 1) = ThisWorkbook。 Worksheet (a). name

Next a

End joint

The common toolbar under the menu bar of the editing code interface has an exit design mode button, click it. Then return to the worksheet and click this button to finish. At the same time, there will be an error message that is out of line, but it doesn't matter, because I don't know how many tables you have, but you will see that column A of this worksheet is all table names.