[RESOLVED] range testing

[habenero]

hello to all

here is the code that is driving me crazy

what I want to do is set two ranges and color test against

a cell (values)

the trouble is my 2nd defined range is testing the 1st range

what am I doing wrong?

and it seems to be another simple

fix - know I got two ranges with the same name

so how does one name a new range - kill the original

without getting the "variable is already set"

thanks for the help

Jeff


Sub Color_tester_Mega_powerball()
Set myRange = range("A2:e6")
For Each cell In myRange
If cell.Value = range("A15") Then
cell.Interior.ColorIndex = 4
ElseIf cell.Value = range("B15") Then
cell.Interior.ColorIndex = 4
ElseIf cell.Value = range("C15") Then
cell.Interior.ColorIndex = 4
ElseIf cell.Value = range("D15") Then
cell.Interior.ColorIndex = 4
ElseIf cell.Value = range("E15") Then
cell.Interior.ColorIndex = 4
Set myRange = range("f2:f6")
ElseIf cell.Value = range("f15") Then
cell.Interior.ColorIndex = 4
End If
Next
End Sub

[Zvoni]

You run through the Cells A2 to E6
If none of those cells equals Range("E15") you're never going to set your Range to F2:F6, because it's in an If-ElseIf-construct

[westconn1]

i have no idea, from the description, what your end game is

[habenero]

I start off by defining one range (a2:E6) and do a conditional test will cells A15 to E15

Then I want to define a new range (f2:F6) then conditional test with cell F:15

Zvoni is giving me a nudge or a hint . I can see that and I also know VBA is telling me that I set two ranges with the same name

I have tried to re-name the 2nd range and it does not work - VBA tells me that I have the range named twice - it has to be simple tweak of code but cannot get this code to behave the way I want to, I have looked for solutions all over the net but this programming (loops and conditionals) are my kyptonite.

Thanks again for the replies

Jeff

[westconn1]

there is no issue with using the same variable for 2 ranges, but not within a for each loop of the variable, as at that point the variable is locked

you do not actually nee to use a variable to loop through a range as you can do like

For Each cell In range("A2:e6")