hide columns

[orsm6]

hi all

I haven't found anything yet that can help me do what i need. Hoping someone may have the answer.

I have B11 setup with a drop down list of peoples names.
In range D11:IS11 are those same names.

i would like a macro that searches D11:IS11 for the name in B11 and if it is found, hide all other columns.

preference would be that the macro runs from clicking a 'search' button, not by worksheet change event

TIA

 

[alansidman]

Here is the code you need to attach to a button

Option Explicit


Sub HideB11()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 4 To 253
        If Cells(11, i) <> Range("B11") Then
            Cells(11, i).EntireColumn.Hidden = True
        End If
    Next i
    Application.ScreenUpdating = True


End Sub

 

[orsm6]

that is spot on, i appreciate your fast reply.

thank you very much