Application.FollowHyperlink causes runtime error 490 for some, but not others

[Amras]

Good afternoon all; thanks for taking a moment to review my situation.



I've got a very simple line of code that's causing an error for some users, but not others. The code is as follows:

Application.FollowHyperlink "C:\Users\" & Environ("USERNAME") & "\Documents\Contact List 06-09.xlsx", , True

The error they're getting is runtime error 490, cannot open the specified file.

Two things are confusing me. 1) The document exists. Of that there's no question. 2) The code works for the majority of my users, but not for a very select few.

Any suggestions, folks?

[June7]

Possibly some network permission issues?

Review:

http://allenbrowne.com/func-GoHyperlink.html

However, Allen still uses FollowHyperlink in that code.

I recently tried FollowHyperlink to open PDF files. It wasn't working so went with Shell alternative.

Private Sub btnLink_Click()
On Error GoTo ErrProc
'FollowHyperlink is not working properly
''Application.FollowHyperlink strPath
Dim wsShell As Object
Set wsShell = CreateObject("WScript.Shell")
wsShell.Run Chr(34) & Me.tbxLink & Chr(34)
ExitProc:
Exit Sub
ErrProc:
MsgBox "Cannot open document. Contact database administrator. : " & Err.Number
End Sub

[ItsMe]

Perhaps some of your users created a profile on the local machine and also on the network. In other words, there is a folder that is named MyName as well as MyName.Domain in the Users folder on the machine.

I would check the machines where the trouble is occurring. Check the users folder and look for two profiles (folders).