En nuestros códigos de VBA tenemos que recurrir a indicar la ruta de los libros y archivos.
- CREAR MACRO
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.
Escribir el código de la macro...
- RUTA DEL PROGRAMA EXCEL SIN NOMBRE DEL PROGRAMA NI EXTENSIÓN
Sub Demo1()
MsgBox Application.Path
End Sub
- RUTA DEL PROGRAMA EXCEL CON NOMBRE DEL PROGRAMA Y EXTENSIÓN
Sub Demo2()
MsgBox Application.Path & "\Excel.exe"
End Sub
- RUTA DEL LIBRO
Sub Demo3()
MsgBox ActiveWorkbook.Path
End Sub
O también,
Sub Demo4()
Filename = CurDir
MsgBox Filename
End Sub
- RUTA DEL LIBRO CON SEPARADOR
Sub Demo5()
MsgBox ActiveWorkbook.Path & "\"
End Sub
O también,
Sub Demo6()
Filename = CurDir
MsgBox Filename & "\"
End Sub
- RUTA COMPLETA CON NOMBRE LIBRO SIN EXTENSIÓN
Sub Demo7()
Filename = ActiveWorkbook.Name
Filename = Left(Filename, InStr(Filename, ".") - 1)
MsgBox ActiveWorkbook.Path & "\" & Filename
End Sub
- RUTA COMPLETA CON NOMBRE LIBRO Y EXTENSIÓN
Sub Demo8()
MsgBox ThisWorkbook.FullName
End Sub
- NOMBRE DEL LIBRO SIN EXTENSIÓN
Sub Demo9()
Filename = ActiveWorkbook.Name
Filename = Left(Filename, InStr(Filename, ".") - 1)
MsgBox Filename
End Sub
- EXTENSIÓN DEL LIBRO CON PUNTO
Sub Demo10()
Filename = ActiveWorkbook.Name
Filename = Right(Filename, InStr(Filename, ".") - 3)
MsgBox Filename
End Sub
- EXTENSIÓN DEL LIBRO SIN PUNTO
Sub Demo11()
Filename = ActiveWorkbook.Name
Filename = Right(Filename, InStr(Filename, ".") - 4)
MsgBox Filename
End Sub
- UNIDAD
Sub Demo12()
Filename = ActiveWorkbook.Path
Filename = Left(Filename, InStr(Filename, ":") + 1)
MsgBox Filename
End Sub
- SEPARADOR
Sub Demo13()
MsgBox Application.PathSeparator
End Sub
Excel Experto VBA - Macros
EXCELente
Más claro echale agua!!!