formula typed contains an error

[associates]

Hi,

I was wondering if anyone might be able to help me out. I've got som
error message saying " the formula you typed contains an error" afte
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 advanc

 

[Chip Pearson]

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"
in message
news:[email protected]...