If sum of range = 0 then...

[tourless]

Hi Folks,

I'm having trouble formatting this statement properly. I keep getting sub or function not defined error.

If Sum(wsCustomerReportCard.Range("B" & fRow + 1 & ":B" & lRow + 1) = 0) Then
        wsCustomerReportCard.Range("B" & fRow + 1 & ":B" & lRow + 1).Replace What:="0", Replacement:="", Lookat:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False
End If

Can someone help?

 

[tourless]

nevermind... got it.

If Application.WorksheetFunction.Sum(wsCustomerReportCard.Range("B" & fRow + 1 & ":B" & lRow + 1)) = 0 Then
        wsCustomerReportCard.Range("B" & fRow + 1 & ":B" & lRow + 1).Replace What:="0", Replacement:="", Lookat:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False
End If