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

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

3、在代码窗口中输入以下代码，然后按下F5运行，既可以在Sheet1工作表的A列列出所有工作表的名称Sub xyf() For i = 1 To Worksheets.Count Sheet1.Range("a" & i).Value = Worksheets(i).Name NextEnd Sub如下图所示：