myShell.Run ("AcroRd32.exe """ & Filename & """")

paths with spaces need quotes

Tim


"Otto Moehrbach" wrote in message
...
I should have added that Acrobat Reader (8.0) does open with this code, but
that's all. Otto
"Otto Moehrbach" wrote in message
...
Excel XP & Win XP
I have used the following code (credit to Tom Ogilvy) to open a .pdf
file. It has worked just fine, now it doesn't. I now get an error that
the file cannot be found. The only difference that I am aware of is that
I recently upgraded to Adobe Reader 8.0 from Adobe Reader 7.0.
Question: Does anyone have an insight as to what may be happening?
Thanks for your time. Otto
Sub OpenPdfFile(WhichOne As String)
Dim Filename As String
Dim myShell As Object
Set myShell = CreateObject("WScript.Shell")
Filename = "C:\LettersForms\Ops Manual\" & WhichOne & " Ops
Manual.pdf"
myShell.Run ("AcroRd32.exe " & Filename)
End Sub