获取数组中的集合数

Sub test()
    Dim Relevant_Sheets As Variant
    Set Relevant_Sheets = Sheets(Array("btw.facturen", "btw.filelist", "btw.controle", "intervat", "voorblad", "medecontractanten", "Vak 01", "Vak 03", "Vak 45", "Vak 54", "Vak 55", "Vak 56", "Vak 59", "Vak 81", "Vak 82", "Vak 83", "Vak 84", "Vak 85", "Vak 86", "Vak 88"))
    Number_of_Relevant_Sheets = 20
End Sub

这是我的代码的一部分。Relevant_Sheets之后会被多次使用，因此我可以使用它，因此我只需要设置要使用一次的页面即可。

我想Number_of_Relevant_Sheets计算其中的工作表数Relevant_Sheets（在这种情况下为20），这样，当我从列表中添加或删除工作表时，不必手动更改它。

如果有人能指出我正确的方向？