This really isn't a need to do any looping (or selecting):

Sub demo()
With Range(Range("TotalCentralRegion").Offset(1), "TotalEastRegion")
.FormulaR1C1 = "=RC[-2]/EastTotal"
End With
End Sub

--
Jim
"Fastbike" wrote in
message ...

Hi,
I am after help for the following:

Range("TotalCentralregion").Select ' Range is a single cell
Selection.Offset(1, 0).Select
Selection.Formula = "=(" & ActiveCell.Offset(0, -2).Address & "
/EastTotal)"

What I need to do is loop this formula down a column until it gets to a
single cell that has been named "TotalEastRegion". (Formula has to
include "TotaleastRegion).

Thanks for the help in advance.

Fastbike


--
Fastbike
------------------------------------------------------------------------
Fastbike's Profile:
http://www.excelforum.com/member.php...o&userid=26701
View this thread: http://www.excelforum.com/showthread...hreadid=401530