division by zero in code

[John2Chr]

How do I make the below code display 0 if c390 is 0. Division by zero fix


Sub Macro2()

Dim cell As Range
Dim icell As Single
Dim iMultipler As Single

iMultipler = Range("c388").Value
For Each cell In Selection.Cells
icell = cell.Value
cell.Formula = "=" & icell & "*" & Range("c388").Address(, , , True) & "/" & Range("c390").Address(, , , True)
Next

[Bishonen]

if range("C390") = 0 then
cell = 0
end if
cell.Formula ...

[John2Chr]

where does this get inserted in the code?