I'm trying to use Goal Seek on a range, rather than use it line by
line.
I wrote the following but I keep getting "Assignment to Constant Not
Permitted."

I performed the Goal Seek using the recorder, and I used that as my
starting point. I thought it'd be super-green.

Any ideas?


Sub DateMacro1()
Dim Cell As Range

For Each Cell In Range("H8:H30")
With Cell
If Cell = "" Then Cell.Offset(, 1).GoalSeek(5, Cell.Offset(0,
1)) = True

End With
Next
End Sub


--
hindsight
------------------------------------------------------------------------
hindsight's Profile: http://www.excelforum.com/member.php...fo&userid=6360
View this thread: http://www.excelforum.com/showthread...hreadid=397817