Case Select not working

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.