excel 用vba提取全部工作表名

Sub test()For Each sht In Sheetsshtn = shtn & sht.Name & "、"NextRange("A1").Value = Left(shtn, Len(shtn) - 1)End Sub