Kode til at lave hyperlink liste VBA

Hej Eksperter

Jeg har fundet følgende kode på nettet til at oprette en hyperlink liste over samtlige ark i en projektmappe. Den virker sådan set rigtig godt, der er bare lige det problem at hvis arknavnet har mellemrum eller andre sjove tegn, virker linket ikke. Er der nogen der har forslag til hvordan man kan skrive den om så det virker??

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1

Sheets("Sheet1").Range("A:A").Clear

For Each ws In Worksheets

Sheets("Sheet1").Cells(x, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name

x = x + 1

Next ws

End Sub

Jeg håber der er en der vil tage udfordringen op.

Hilsen berit66