Hyperlink setzen

Sub Inhaltsverzeichnis_mit_hyperlink()
Dim intTab As Integer
Dim Blat As Worksheet
Dim intZelle As Integer
Set blatt = Worksheets.Add(before:=Worksheets(1))
Columns("A:A").Select
Selection.NumberFormat = "@"
intZeile = 1
For intTab = 2 To ActiveWorkbook.Worksheets.Count
blatt.Cells(intZeile, 1).Value = Worksheets(intTab).Name
blatt.Cells(intZeile, 1).Hyperlinks.Add _
Anchor:=Cells(intZeile, 1), Address:="", SubAddress:= _
Worksheets(intTab).Name & "!A1", _
ScreenTip:="Klicken Sie auf den Hyperlink", _
TextToDisplay:=Worksheets(intTab).Name
intZeile = intZeile + 1
Next intTab
End Sub

Das Makro kopiert die Tabellennamen in eine neue angelegte Tabelle und fügt die Hyperlinks auf die Tabellen ein. Ich habe nun aber Tabellen die ein Wort und eine Zahl haben z.B. Mai 2010. Und hier bekomme ich nun den Fehler "Bezug ist ungültig".
Wer kann mir helfen?
Viele Grüße
Markus