Open external program
 

Is there anyway I can get excel to search for, and open the latest
version of a PDF viewer (acrobat).
Have attached the current code, but as you can see, if I was to upgrade
my pdf viewer to another version, it will not load.

I hope this make sense

Dim retval
retval = Shell("c:\program files\adobe\acrobat 4.0\reader\acrord32
\\server\share\folder\" +
ActiveSheet.Range(ActiveWindow.RangeSelection.Addr ess) + ".pdf",
vbNormalFocus)

End Sub

Your help is greatly appreciated



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Open external program
 

Hi,
Shelling to windows start should use the latest version.

Dim retval
retval = Shell("start acrord32.exe" & "\\server\share\folder\" & _
ActiveSheet.Range(ActiveWindow.RangeSelection.Addr ess) & ".pdf",
vbNormalFocus)

End Sub

--

John

johnf202 at hotmail dot com


"bondy" wrote in message
...
Is there anyway I can get excel to search for, and open the latest
version of a PDF viewer (acrobat).
Have attached the current code, but as you can see, if I was to upgrade
my pdf viewer to another version, it will not load.

I hope this make sense

Dim retval
retval = Shell("c:\program files\adobe\acrobat 4.0\reader\acrord32
\\server\share\folder\" +
ActiveSheet.Range(ActiveWindow.RangeSelection.Addr ess) + ".pdf",
vbNormalFocus)

End Sub

Your help is greatly appreciated



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/