Greetings,

This code works fine for multiplying but I also want to divide by the c390 cell.

Sub Macro2()
Dim cell As Range
iMultipler = Range("c388").Value
For Each cell In Selection.Cells
icell = cell.Value
Debug.Print icell
cell.Formula = "=" & icell & "*" & Range("c388").Address(, , , True)
Next
End Sub