Задать переменную в зависимости от количества выделенных вкладок в книге?

Question

Я пытаюсь найти количество книг, цвета вкладок которых являются стандартными автоматическими цветами.

У меня есть способ сделать это, но он требует циклически проходить по каждому листу в книге и таким образом увеличивать счет.Т.е. вот так:

Sub test()
Dim wb As Workbook
Dim ws As Worksheet
Dim n As Long

    Set wb = Application.ThisWorkbook
    n = 0

    For Each ws In wb.Sheets
        If ws.Tab.ColorIndex = -4142 Then
            n = n + 1
        End If
    Next ws

    Debug.Print (n)
    End Sub

Я знаю, что есть функция рабочего листа, которая может подсчитывать общее количество рабочих листов в книге ... т.е.:

n = wb.Worksheets.Count

Можно ли настроитьэто включить условие if?то есть n=wb.worksheets.countif?И если да, то можно ли это отрегулировать под мою проблему?

Спасибо!