根据工作簿中突出显示的选项卡数量设置变量？

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吗？如果可以的话，可以调整它以适合我的问题吗？

谢谢！