Error Handling in Macro

[tlc_in_OK]

I have a macro that makes several calculations, but I can't figure out how to handle a divide by zero error ("overflow" for the macro). I've tried using the IfError function and get the same result. Ideally, I'd like it to place a "0" in the cell if there are no results for the denominator. Can someone help? Here's the calculation line. . .

    .Range("I39").Value = WorksheetFunction.SumIf(Worksheets("All_Properties").Range("H:H"), "Rejected", _
            Worksheets("All_Properties").Range("K:K")) / WorksheetFunction.SumIf(Worksheets("All_Properties").Range("H:H"), _
            "Rejected", Worksheets("All_Properties").Range("L:L"))

 

[MalcSmith]

What I tend to do is to put the denominator and numerator into two variables.

dim nNumberator as Double, nDenominator as Double
 
nNumerator = WorksheetFunction.SumIf(Worksheets("All_Properties").Range("H:H"), "Rejected", _
            Worksheets("All_Properties").Range("K:K"))

nDeonominator = WorksheetFunction.SumIf(Worksheets("All_Properties").Range("H:H"), _
            "Rejected", Worksheets("All_Properties").Range("L:L"))
 
if nDenominator = 0 then
  .range("I39").Value = 0
else
  .range ("I39") = nNumerator / nDenominator
end if

 

[tlc_in_OK]

Thanks, that will work. . .guess I was just trying to do too much without using variables. Thanks again.