WorksheetFunction.SumIfsで複数シートから集計を行い、複数のセルに転記したい

Sub test()
   'シート名を指定して1日分の合計を転記する
   With Worksheets("20220501")
   Worksheets("集計").Cells(2, "B") = WorksheetFunction.SumIf(.Range("L3:L45"), "山田", .Range("H3:H45"))
   
   End With
   

End Sub

Sub syuukei()

'使わないsheet名を定義

 Dim a As Worksheet
 Dim b As Worksheet
 Dim c As Worksheet
 Dim d As Worksheet
 
 Set a = Worksheets("集計対象外1")
 Set b = Worksheets("集計対象外2")
 Set c = Worksheets("集計対象外3")
 Set d = Worksheets("集計")
 
 
 'for文で繰り返し、シート名がa,b,c,dに一致するものをif not～で除外する
 
 Dim sheetNo As Integer
 
 For sheetNo = 1 To Worksheets.Count
     
　　If Not Worksheets(sheetNo).Name = a.Name And Worksheets(sheetNo).Name = b.Name And Worksheets(sheetNo).Name = c.Name And Worksheets(sheetNo).Name = d.Name Then
　　　With Worksheets(sheetNo)       
　　　　　Worksheets("集計").Cells(2, "B") = WorksheetFunction.SumIf(.Range("L3:L45"), "山田", .Range("H3:H45"))
       End with
    End If
         
 Next
 
End Sub