如何用vba操作工作表的标签？

如下图所示，

工作簿中有5个工作表，有2个工作表的标签有颜色。

vba中提供了工作表标签的对象Tab用于操作与工作表标签相关的属性。

以下代码可以将工作表标签有颜色的工作表隐藏。

Sub QQ1722187970()
    Dim oWK As Worksheet
    For Each oWK In Excel.ThisWorkbook.Worksheets
        If oWK.Tab.ColorIndex = xlColorIndexNone Then
        Else
            oWK.Visible = xlSheetHidden
        End If
    Next
End Sub