I just ran this simple test and got the same error msg with double
declaration.

Sub replaceinrng()
Dim c As Range
For Each c In Range("n2:n6")
c.Replace 0, "=a" & c.Row
Next c

'Dim c As Range' take OUT

For Each c In Range("q2:q6")
c.Replace 0, "=a" & c.Row
Next c


End Sub

--
Don Guillett
SalesAid Software

"rojobrown" wrote in message
...
I tried commenting out the 2nd dim cell as range. It still didn't work.
I'll try the one for the formatting too. Thanks.
--
Thanks a bunch!
rojobrown


"Don Guillett" wrote:

Help is not a good subject line for the archives. Try commenting out the
2nd
dim cell as range.
'Adds $ formatting

also try this
range("d1:l1,n1").entireColumn.NumberFormat = _
"_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]*

End Sub

--
Don Guillett
SalesAid Software

"rojobrown" wrote in message
...
I keep getting a compile error on the formula below and I can't figure
out
what I have wrong... The error comes up 'duplicate declaration in
current
scope' right under 'Creates Formula for LO Commission....Can you guys
help
me?

'Creates formula for Total Fee Income
Dim cell As Range
For Each cell In Range("L1:L100")
cell.Replace What:="0", Replacement:="=(E" & cell.Row & "+F" & cell.Row
&
_
"+G" & cell.Row & "+H" & cell.Row & ")-K" & cell.Row, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False

'Creates Formula for LO Commission
Dim cell As Range
For Each cell In Range("N1:N100")
cell.Replace What:="0", Replacement:="=(L" & cell.Row & "*M" & cell.Row
&
_
")-J" & cell.Row, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False

Next
Range("J5").Select

'Adds $ formatting
Columns("D:D").Select
ActiveWindow.SmallScroll ToRight:=3
Columns("D:L").Select
Selection.NumberFormat = _
"_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]*
""-""??_);_(@_)"
Columns("N").Select
Selection.NumberFormat = _
"_([$$-409]* #,##0.00_);_([$$-409]* (#,##0.00);_([$$-409]*
""-""??_);_(@_)"
Range("A1").Select
End Sub



--
Thanks a bunch!
rojobrown