Can anyone tell me why I am getting a Type mismatch error please
Sub SumProduct()
Dim WF As WorksheetFunction
Set WF = Application.WorksheetFunction
Dim Product As Range, Region As Range, Rep As Range, Cust As Range, Sales As Range, COGS As Range
Set Product = Range("B2:B106") 'contains text
Set Region = Range("C2:C106") 'contains text
Set Rep = Range("D2:D106") 'contains text
Set Cust = Range("E2:E106") 'contains text
Set Sales = Range("G2:G106") 'contains values
Set COGS = Range("H2:H106") 'contains values
ActiveCell.Formula = WF.SumProduct((Region = East) * Sales)
End Sub
Sub SumProduct()
Dim WF As WorksheetFunction
Set WF = Application.WorksheetFunction
Dim Product As Range, Region As Range, Rep As Range, Cust As Range, Sales As Range, COGS As Range
Set Product = Range("B2:B106") 'contains text
Set Region = Range("C2:C106") 'contains text
Set Rep = Range("D2:D106") 'contains text
Set Cust = Range("E2:E106") 'contains text
Set Sales = Range("G2:G106") 'contains values
Set COGS = Range("H2:H106") 'contains values
ActiveCell.Formula = WF.SumProduct((Region = East) * Sales)
End Sub