If ActiveCell.Value "" Then
ActiveCell = ActiveCell.Offset(0, 1).Value/ActiveCell.Value
End If

Restated:

Dim rng As Range
rng = ActiveCell
If rng.Value "" Then
rng = rng.Offset(0, 1).Value/rng.Value
End If



"Straightpool" wrote in message
...
I need to create a formula in a VB macro based on the ActiveCell. The
formula
should look like the following:

=IF(ISBLANK(J7),,I7/J7)

I7 & J7 will change based on the current row.

I am new using VB so any help will be greatly appreciated.

Thanks,
Brad