Перечислите имена конкретных рабочих листов

Question

В текущей книге, я хочу, чтобы составить список листов, заканчивающихся в -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

Try:

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 

Примечание:

Я предположил список, а не Список