Range of cells for loop

[Guzzlr]

Hello, I have:

Sub ShowIce()
Dim i As Integer
Sheets("EAP L1 - Current Mainline").Activate
For i = 6 To 600
If Cells(Range("23:28"), i).Interior.ColorIndex = 44 Then
Columns(i).EntireColumn.Hidden = False
End If
If Cells("23:28", i).Interior.ColorIndex = 46 Then
Columns(i).EntireColumn.Hidden = True
End If
Next i

Instead of keying on row 23 for my loop, I am trying to have a range of cells from row 23 to row 28 with the color index of 44
Same for the second IF only for color index of 46

How can I do this? If I only have one row, say row 23...the code works fine.

Thank you

 

[6StringJazzer]

There are some syntax problems. Also I suggest indenting your code to show structure. What do you want to do if, in the same column, one row has a color of 44 and another is a color of 46? The current result will be whichever one it checks last.

Sub ShowIce()

   Dim i As Integer
   Dim R As Integer
  
   Sheets("EAP L1 - Current Mainline").Activate
  
   For i = 6 To 600
      For R = 23 To 28
     
         If Cells(R, i).Interior.ColorIndex = 44 Then
            Columns(i).EntireColumn.Hidden = False
         ElseIf Cells(R, i).Interior.ColorIndex = 46 Then
            Columns(i).EntireColumn.Hidden = True
         End If
     
      Next R
   Next i

End Sub

 

[Guzzlr]

Thank you...I will try this and report back