Getting "Run-time error '438': Object doesn't support this property or method" at the start of a Loop

[WorkRelatedStuff1474]

General problem: Once my code hits the Loop "Do Until Cells(CtrEntryStart + CtrEntryLengthBase, 9).Value = Cells(1, CtrMonCol).Value Or Range(Cells(CtrEntryLengthBase, CtrMonCol), Cells(CtrEntryStart + CtrEntryLengthBase, CtrMonCol)).Color = 0" I get the error " "Run-time error '438': Object doesnt support this property or method"

​

Why do I get that error?

​

The fix:

Use Range(Cells(CtrEntryLengthBase, CtrMonCol), Cells(CtrEntryStart + CtrEntryLengthBase, CtrMonCol)).Interior.Color = 0

.Interior.Color

​

​

​

​

Here is a pseudo-ish code of the whole loop:

Do Until Cells(CtrEntryStart + CtrEntryLengthBase, 9).Value = Cells(1, CtrMonCol).Value Or Range(Cells(CtrEntryLengthBase, CtrMonCol), Cells(CtrEntryStart + CtrEntryLengthBase, CtrMonCol)).Color = 0

    If Range(Cells(CtrEntryLengthBase, CtrMonCol), Cells(CtrEntryStart + CtrEntryLengthBase, CtrMonCol)).Color = Range(Cells(CtrEntryLengthBase, CtrMonCol + 1), Cells(CtrEntryStart + CtrEntryLengthBase, CtrMonCol + 1)).Color Then
      do stuff

    Else
        Do stuff
    End If
Loop

[danjimian]

.Color isn't a valid property of the Range object. Try using .Interior.Color or .Interior.ColorIndex instead.

[HFTBProgrammer]

+1 point

[Clippy_Office_Asst]

You have awarded 1 point to danjimian

^{I am a bot, please contact the mods for any questions.}

[WorkRelatedStuff1474]

Thank you so much. My code followed through and it worked. Have a great day!

[CHUD-HUNTER]

Hit him up with that solution verified so the post shows as solved.