Hypelink to hidden sheet

[abugharibh]

Hello,

i'm trying to creat a hyperlink to a hidden sheet within the same workbook so i've put in the following:

Dim shtName As String
shtName=Left(Target.Subaddress,InStr(1,Target.Subaddress,"!")-1)
Sheets(shtName).Visible=xlSheetVisible
Sheets(shtName).Select

it does not work unless the hyperlink is only one word.
e.g. hyperlink "click to view PDSA" OR "Click to view" and the sheet name is "PDSA Adult Pathway" does not work.

i cant make the names or the hyperlinks one word each because i have many that will end up with the same name.

Im i missing something?

thank you

 

[Fluff]

Try

 shtName=Replace(Left(Target.Subaddress,InStr(1,Target.Subaddress,"!")-1),"'","")

 

[abugharibh]

Try

 shtName=Replace(Left(Target.Subaddress,InStr(1,Target.Subaddress,"!")-1),"'","")

thank you, but still did not work.

 

[abugharibh]

i have just renamed the sheets without spaces and somehow it is working now. thanks alot

 

[Fluff]

Glad you sorted it & thanks for the feedback.