Verwendung von Tabellenname in Variable

Option Explicit
Dim monate As String
Private Sub kopieren()
Sheets(monate).Select
Selection.AutoFilter Field:=5, Criteria1:="Kraftstoff"
End Sub
Private Sub CommandButton1_Click()
monate = ListBox1.Value
Select Case monate
Case Is = "Mai 07"
Run abfragemai
Case Is = "Juni 07"
Run abfragejuni
Case Is = "Juli 07"
Run abfragejuli
Case Is = "Aug 07"
Run abfrageaug
End Select
End Sub
Public Sub ListBox1_GotFocus()
Dim wsTabelle As Worksheet
For Each wsTabelle In Worksheets
ListBox1.AddItem wsTabelle.Name
Next wsTabelle
End Sub

Kann mir wer sagen ob das überhaupt möglich ist, was ich vorhabe?
Danke für eure Hilfe
Phil