列出特定工作表的名称

在当前工作簿中，我想要列出以-A和-B结尾的工作表，并将它们放在名为List的工作表中，从cell C3开始：
我的代码是：

 Sub Make_list_of_sheets() Dim Sheet As Worksheet For i = 1 To sheets.Count If Sheet.Name Like "*" & strSearch & "-A" Or _ Sheet.Name Like "*" & strSearch & "-B" Then Sheet(Sheet.Name).Count sheets("list").Range("C3")(i, 1).Value = sheets(i).Name End If Next i End Sub 

问题：代码不能正常工作，会导致错误。
如何纠正这个代码？

Answer 1

尝试：

 Sub Make_list_of_sheets() Dim Sheet As Worksheet, j As Long Dim i As Long j = 3 For i = 1 To Sheets.Count v = Right(Sheets(i).Name, 2) If v = "-B" Or v = "-A" Then Sheets("list").Cells(j, 3).Value = Sheets(i).Name j = j + 1 End If Next i End Sub 

注意：

我假设列表而不是列表