VBA - Adding Hyper link to cell doesn't work

[Barbarte]

Hi All,

I have a piece of code that adds a hyperlink to a cell:

Cells(rowno1, 7).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Link & CompanyName & " - " & 
ProjectTitle & "\" & TrackTitle & " - " & Publisher & ".xlsm", TextToDisplay:=Publisher

In the above "Publisher" is a previously set name.
It appears to work, however when I click on the link I get the message "cannot open the specified file"
when I edit the hyperlink it says:
"Publisher%20Sync%20Requests\Avalon%20Films%20-%20Between%20the%20Canals\JOHNNY%20MCGORY%20%20%20-%20ST-JOHN%20PETE%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20.xlsm"

I manually set the hyperlink and it now says:

"Publisher%20Sync%20Requests\Avalon%20Films%20-%20Between%20the%20Canals\JOHNNY%20MCGORY%20%20%20-%20ST-JOHN%20PETE%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%202.xlsm"

which as far as I can see is exactly the same, except now the hyperlink works.
Anyone any Ideas what I'm doing wrong?

Best wishes,

Paul.

 

[Andrew Poulsom]

The second one has a 2 before .xlsm. Or is that just a typo?