iRow = <the initial value
For Each CurCell In iStateRange
CurCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow
iRow = iRow + 18
Next

If that doesn't work, check the definition of iStateRange

--
Regards,
Tom Ogilvy


"DejaVu" wrote in
message ...

I have this block in my code:
For Each CurCell In iStateRange
ActiveCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow
iRow = iRow + 18
ActiveCell.Offset(1, 0).Select
Next

This works perfectly (almost), but when it gets to the last CurCell in
iStateRange, it does not enter the data. I changed the above to this:
For Each CurCell In iStateRange
ActiveCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow
iRow = iRow + 18
ActiveCell.Offset(1, 0).Select
Next
ActiveCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow

And now everything works fine. I wanted to see what someone thought,
because I'm sure this is not the best way to do it.


DejaVu


--
DejaVu
------------------------------------------------------------------------
DejaVu's Profile:
http://www.excelforum.com/member.php...o&userid=22629
View this thread: http://www.excelforum.com/showthread...hreadid=383916