Uso de variables de entorno Windows Xp en VBA

Vinchenzo vinç y Hector miguel :

1º que nada 1000 gracias por sus respuestas
2º-una aclaracion :-D ,el "cambio de consulta" fue involuntario,debido
a mi ignorancia o forma de saber plantear el asunto principal de mi
inquitud,pues efectivamente "Y una cosa es "obtener la ruta de un
ejecutable", y otra distinta es "abrir un fichero con su aplicación
asociada". 8-D

en cuanto al codigo que ofrecio vinchenzo,lo adapte minimamente asi:

Sub AbrirFicheroWS(ByVal strRutaFichero As String)
Dim oShell As Object
strRutaFichero = "E:\facts23_es.pdf"

Set oShell = CreateObject("WScript.Shell")
oShell.Run strRutaFichero
Set oShell = Nothing
End Sub

pero no funciono :-((
me abre la ventana donde estan todas las macros que tengo en el
libro,pero esa macro no aparece ????????
me hace falta alguna referencia ???

salu2 ST ;-D

hla, ?

op1: elimina el argumento que 'solicita' el procedimiento en la primera linea de su declaracion...
de: -> Sub AbrirFicheroWS(ByVal strRutaFichero As String)
a: -> Sub AbrirFicheroWS()

op2: [de lo contrario] sera necesario que 'llames' al procedimiento anterior... -> desde otra macro [o procedimiento] :((

por que ?...
-> las macros en la interfase del usuario, que se pueden mostrar desde [menu] herrmientas/macro/macros o {alt}+{F8}
son para su 'inmediata ejecucion' [SIN 'tener que esperar' a que les sean 'pasados' parametros/argumentos] :-(
-> y... si algun procedimiento 'toma/solicita/requiere/...' argumentos 'iniciales'... NO es mostrada en la interfase con el usuario :(

si cualquier duda... comentas ?
saludos,
hector.

_ la consulta original __

... al codigo que ofrecio vinchenzo,lo adapte minimamente asi:
Sub AbrirFicheroWS(ByVal strRutaFichero As String)
Dim oShell As Object
strRutaFichero = "E:\facts23_es.pdf"
Set oShell = CreateObject("WScript.Shell")
oShell.Run strRutaFichero
Set oShell = Nothing
End Sub
pero no funciono :-((
me abre la ventana donde estan todas las macros que tengo en el libro, pero esa macro no aparece ????????

Héctor Miguel :
de saber que me responderias tan rapido,no me pongo a leer todos los
resultados de la busqueda que hice :-D
efectivamente ya habia dado con el "clavo" [Sub AbrirFicheroWS() ],pero
agradezco tu simpre fina atencion.

salu2
ST