如何用VBA代码列出所有工作表的名称到某列？

1、如图所示，当前工作簿有8个工作表。

2、在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签，在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境，如下图所示：

3、在代码窗口中输入以下代码，然后按下F5运行，既可以在Sheet1工作表的A列列出所有工作表的名称

Sub xyf()

    For i = 1 To Worksheets.Count

        Sheet1.Range("a" & i).Value = Worksheets(i).Name

    Next

End Sub

如下图所示：