Sumifs VBA #Value Error

[xs4amit]

Hi,

i am trying to do Sumifs using VBA, below is my Code:

Sub Mandays()
Application.ScreenUpdating = False


Dim Summ As Double
Dim WS1, WS2 As Worksheet
'Dim Arr1 As Variant
Dim Rng1, Rng2, Rng3, Rng4, Rng5 As Range
Dim tFilter1, tFilter2, tFilter3, tFilter5 As String
'Dim i As Long




Set WS1 = Sheets("Daily_Production_Stats")
Set WS2 = Sheets("Master_WDD")
'Arr1 = WS1.UsedRange.Value
Rng1 = WS2.Range("P2:P30000")
Rng2 = WS2.Range("F2:F30000")
Rng3 = WS2.Range("D2:D30000")
Rng4 = WS2.Range("J2:J30000")
tFilter1 = WS1.Range("C5")
tFilter2 = WS1.Range("D1")


With WS1
.Range("A5:A300").Clear


.Cells(5, 1).Value = .Application.WorksheetFunction.SumIfs(Rng1, Rng2, tFilter1, Rng4, tFilter2)


.Activate
End With


End Sub


I am getting #Value as a result whereas Manual Sumifs formula is returning accurate values. Am i missing something??

 

[xs4amit]

Yes, It produces the same result. But i wants to get it done using VBA code because data is huge.
Thanks Steve