Hyperlinks And Sheet Names

I wrote the following macro to create hyperlinked Table of contents on the first sheet of a workbook. It works great unless the sheet name has a space in it, i.e. "new sheet" as opposed to "newsheet". Any way to get it to work for either/ or?



Originally Posted by Code

Sub Hyperlink()
'
' Hyperlink Macro
' Macro recorded 2/26/2007 by bpillsbu
'

'
Dim ShName As String
Dim ShCt, N As Integer
Dim Sht As Worksheet

ShCt = ThisWorkbook.Worksheets.Count
Range("A5").Select
N = 1