Hide/Unhide Columns with Listbox

[obed_cruz]

In the Listbox, for example i select the months of January, March and December, I want only show me the columns with the name of the selected months in the row 10 and the other columns are hidden.
Can you help me?
Greetings.

[Excel Fox]

Hi obed_cruz

Welcome to ExcelFox

Use this in the userform

Private Sub MOSTAR_MES_Click()

Dim rngCell As Range
Dim rngUnion As Range
Dim lngListLoop As Long
Dim strMostar As String

For lngListLoop = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(lngListLoop) Then
        strMostar = strMostar & "|" & ListBox1.List(lngListLoop)
    End If
Next lngListLoop
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'''''''''''''''''''''''''''''''''''''''''''''
For Each rngCell In Range("D10:SP10")
    If InStr(1, strMostar, "|" & Trim(rngCell.Value)) Then
        If Not rngUnion Is Nothing Then
            Set rngUnion = Application.Union(rngUnion, rngCell)
        Else
            Set rngUnion = rngCell
        End If
    End If
Next rngCell
If Not rngUnion Is Nothing Then
    Range("D10:SP10").EntireColumn.Hidden = True
    rngUnion.EntireColumn.Hidden = False
End If
''''''''''''''''''''''''''''''''''''''''''''''''''
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

[obed_cruz]

Thanks Excel Fox,

The code works perfectly.
Congratulations on your wonderful forum.

Grettings