This is ok:
Dim lCol As Long
lCol = ActiveSheet.UsedRange.Columns.Count
For Each Cell In Range(Cells(4, 6), Cells(4, lCol)).SpecialCells(xlCellTypeVisible)
If Cell = "E" Then Call Macro2 Else CommandButton28.BackColor = &H8000000F
Next
End Sub
But this is not, even though...