Kombinationsfeld - Makros

Private Sub ComboBox2_Change()
Select Case ComboBox2.Value
Case "Leiste 1"
On Error Resume Next
If Worksheets("Leiste 1)") Is Nothing Then
On Error GoTo 0
Set NewSheet = Worksheets.Add
NewSheet.Name = "Leiste 1"
ElseIf Worksheets("Leiste 1)") Then
Sheets("Leiste 1").Visible = True
Sheets("Leiste 1").Activate
End If
Case "Leiste 2"
On Error Resume Next
If Worksheets("Leiste 2") Is Nothing Then
On Error GoTo 0
Set NewSheet = Worksheets.Add
NewSheet.Name = "Leiste 2"
ElseIf Worksheets("Leiste 2") Then
Sheets("Leiste 2").Visible = True
Sheets("Leiste 2").Activate
End If
End If
End Select
End Sub