Try this example.

Sub If_Test()

Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range

Set rng1 = Sheets("Sheet1").Range("A1")
Set rng2 = Sheets("Sheet1").Range("B1")
Set rng3 = Sheets("Sheet1").Range("C1")

If rng2 1 And rng3 1 Then
rng1 = rng2 / rng3
End If

End Sub

Regards,

OssieMac

"Macro Help" wrote:

What statement can be wriiten in Macro
that I can say range1 = range2 divided by range3
if range2 1 and range 3 is 1