Laufzeitfehler 9 bei Array Select

Sub Gruppierung_K()
Dim Liste As Variant
Dim ListeKompl As Variant
Dim ListeArr()
ListeArr = Array()
Dim TabName As String
Dim m As Integer
Dim Zaehler As Integer
For m = 1 To Worksheets.Count
TabName = Worksheets(m).Name
TabName = Right(TabName, 2)
If TabName Like " K" Then
Liste = Worksheets(m).Name
ListeKompl = ListeKompl & Chr(34) & Liste & Chr(34) & ", "
Zaehler = Zaehler + 1
End If
Next m
ListeKompl = Left(ListeKompl, Len(ListeKompl) - 2)
ListeArr = Array(ListeKompl)
Sheets(ListeArr).Select
End Sub