Programatically unhide columns based on cell color? 1

[adrikev]

I have a range of columns that are currently hidden. I would like to unhide a column based on a cells color. Here is the code I have so far (it doesn't work).

    Range("R2:DQ2").Select
    For Each Item In Selection
        If Item.Font.ColorIndex = 35 Then
            With Item
                Columns(Item.Columns).Select
                Selection.EntireColumn.Hidden = False
            End With
        End If
    Next Item

Suggestions? Thoughts? --------------------------------
Fortius, Citius, nullis secundus
Strength, Speed, second to none

 

[dwilson01]

If it is the font color you are looking for try this.

Range("R2:DQ2").Select
    For Each Item In Selection
        If Item.Font.ColorIndex = 35 Then
            With Item
                Item.EntireColumn.Hidden = False
                'Columns(Item.Columns).Select
                'Selection.EntireColumn.Hidden = False
            End With
        End If
    Next

If it is the cell color you are looking for, try this

Range("R2:DQ2").Select
    For Each Item In Selection
        If Item.Interior.ColorIndex = 35 Then
            With Item
                Item.EntireColumn.Hidden = False
                'Columns(Item.Columns).Select
                'Selection.EntireColumn.Hidden = False
            End With
        End If
    Next

This worked in my test file, let us know if this works.

Dave

 

[adrikev]

Super Dave,

Thanks for the help. The "Interior" property was tripping me up. Not to mention the column selection. --------------------------------
Fortius, Citius, nullis secundus
Strength, Speed, second to none