VBA Count特定の名前を持つワークシートの数

Question

ブック内のワークシートの数を数え、合計数から特定のワークシートを差し引きたい。私は何が欠けていますか？なぜあなたは、特定のシートにシートの数をカウントしようとしている

wsCount = ThisWorkbook.Sheets.Count - ThisWorkbook.Sheets("Sheety1").Count - 
ThisWorkbook.Sheets("Sheety2").Count 

Answer 1

cpt = 0 
For Each ws In ActiveWorkbook.Worksheets 
    If ws.Name = "Sheety1" Or ws.Name = "Sheety2" Then 
     cpt = cpt + 1 
    Else 
     'Do nothing 
    End If 
Next 
wsCount = ThisWorkbook.Sheets.Count - cpt