Hi,

I was wondering if anyone might be able to help me out. I've got some
error message saying " the formula you typed contains an error" after
putting in the following code.

Here is my code,

for i = 0 to ubound(x)
c = chr(65 + i) + trim(str(Count) ' Count is the row number
with worksheets("Sheet1")
with .range(c$)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual,
Formula1:="=my" & c$
.FormatConditions(1).Interior.ColorIndex = 36
.FormatConditions.Add Type:=xlCellValue,
Operator:=xlNotEqual, Formula1:="my" & c$
.FormatConditions(1).Interior.ColorIndex = 42
end with
end with

rowline1 = "my" & c$
mysht = "=Sheet2!R" & cstr(Count) & "C" & cstr(i)
with ActiveWorkbook
.Names.Add Name:=rowline1, RefersToR1C1:=mysht
end with
...

next i

Any ideas?

Thank you in advance


--
associates
------------------------------------------------------------------------
associates's Profile: http://www.excelforum.com/member.php...o&userid=35073
View this thread: http://www.excelforum.com/showthread...hreadid=550789

The code will fail when i = 0 and the formula mysht is
=Sheet2!R1C0

Names.Add Name:=rowline1, RefersToR1C1:=mysht

You need to configure you code so that it will work with a loop
like

For i = 1 To UBound(x)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"associates"
wrote
in message
...

Hi,

I was wondering if anyone might be able to help me out. I've
got some
error message saying " the formula you typed contains an error"
after
putting in the following code.

Here is my code,

for i = 0 to ubound(x)
c = chr(65 + i) + trim(str(Count) ' Count is the row number
with worksheets("Sheet1")
with .range(c$)
FormatConditions.Delete
FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual,
Formula1:="=my" & c$
FormatConditions(1).Interior.ColorIndex = 36
FormatConditions.Add Type:=xlCellValue,
Operator:=xlNotEqual, Formula1:="my" & c$
FormatConditions(1).Interior.ColorIndex = 42
end with
end with

rowline1 = "my" & c$
mysht = "=Sheet2!R" & cstr(Count) & "C" & cstr(i)
with ActiveWorkbook
Names.Add Name:=rowline1, RefersToR1C1:=mysht
end with
..

next i

Any ideas?

Thank you in advance


--
associates
------------------------------------------------------------------------
associates's Profile:
http://www.excelforum.com/member.php...o&userid=35073
View this thread:
http://www.excelforum.com/showthread...hreadid=550789