Case Select not working

Your problem is probably the fact you are using Date as your variable.
Date is a VBa function (Todays date)

Try changing Date to myDate or something similar.

Hope this helps

Originally Posted by Aland2929

Hi Guys,

I have a userform from which I choose one of 12 months. Based on the month selected I want to run the following code: This is an extract of the code. My problem is with the second line of code. Please help?
Thank You

Dim DataChosen As Integer
    Date = ListBox1.Value
    
    Select Case Date
    
        Case "January"
        With ActiveSheet.PivotTables("CommissionData").PivotFields("Month")
            .PivotItems("January").Visible = True
        End With
        
        Case "February"
        With ActiveSheet.PivotTables("CommissionData").PivotFields("Month")
            .PivotItems("January").Visible = True
            .PivotItems("February").Visible = True
        End With

There was a spelling mistake which I have corrected. I have change the code but still have a problem with the DateChosen line?

Dim DateChosen As Integer
    DateChosen = ListBox1.Value
    
    Select Case DateChosen

Thank You

You have changed it to an integer, you need a string

Dim DateChosen As String

    DateChosen = ListBox1.Value
    
    Select Case DateChosen

Originally Posted by Marcol

You have changed it to an integer, you need a string

Dim DateChosen As String

    DateChosen = ListBox1.Value
    
    Select Case DateChosen

Thanks Andy. It works fine now.