I have tried upteen different variations and cannot get the averageifs to work...
Anyone have an idea what I am doing wrong??


Dim OArng As Range 'Cell where Average is reported
Dim Arng As Range 'Range of Dates to Average
Dim Srng As Range 'Start Date
Dim Erng As Range 'End Date
Set OArng = Sheet1.Range("F3")
Set Srng = Sheet1.Range("C1")
Set Erng = Sheet1.Range("E1")
Set Arng = Sheet2.Range("D2:D" & Range("AJ" & Rows.Count).End(xlUp).Row)
With OArng
Application.WorksheetFunction.AverageIfs(Arng,Arng =Sheet1.Range("C1"),Arng<=Sheet1.Range("E1"))