Help debugging macro

[ttbuson]

I'm getting a debug error and I can't figure out why. It's telling me that I'm using an "Invalid or Unqualified Reference" and it highlights the line .Font.Color. Any help would be appreciated. Thanks.

Sub ColorCells()
 
Dim rng As Range
Dim cell As Range

Set rng = ActiveSheet.Range("C36:G65")
 
For Each cell In rng
    .Font.Color = -65536
    .TintAndShade = 0
Next cell
 
End Sub

 

[Osvaldo Palmeiro]

Hi.
try this instead

For Each cell In rng
    cell.Font.Color = -65536
    cell.Font.TintAndShade = 0
Next cell