Ошибка типа запуска 13 несоответствие типов с sumif с или

Question

Точно знаю, у меня есть что-то вроде этого.

Dim WrdArray() As String
Dim TempStatus, TempStatus1, TempStatus2, TempStatus3, TempStatus4 As String
Dim CantStatus As Integer
Dim SubRegion As String
Dim ThisWB As Workbook: Set ThisWB = ThisWorkbook
Dim SumRange As Range
Dim SubRegionRange As Range
Dim QuarterRange As Range
Dim StatusRange As Range
Dim TempSum As Variant
...
...
...
...
    Case 2
    TempStatus1 = Split(TempStatus, ", ")(0)
    TempStatus2 = Split(TempStatus, ", ")(1)
    For i = 6 To 23
        SubRegion = ThisWB.Sheets("Year & Quarter Summary").Range("A" & i)
        If Quarter = "All" Then
            If TempStatus1 = "Commit" And TempStatus2 = "Pipeline" Then
                ThisWB.Sheets("Year & Quarter Summary").Range("B" & i).Value = Application.WorksheetFunction.Sum(Application.WorksheetFunction.SumIfs(SumRange, _
                SubRegionRange, SubRegion, StatusRange, Array(TempStatus1, TempStatus2)))

            End If
        End If

Но когда я запускаю это, я получаю run type error 13 type mismatch, Но если я использую простые SUMIFS, никакая SUM(SUMIFS()) программа не будет работать должным образом.

Любая идея. Благодарю.