Problema con Macro al Cambiar Ruta de Carpeta

[mastoca]

Amigos, he creado un conjunto de 3 archivos, 2 xls y 1 doc, para automatizar los finiquitos en la empresa donde trabajo, funcionan de maravilla, necesitaba automatizarlos lo mas posible para que cuando lo use otra persona solo ingrese los datos necesarios, y asi no modifique lo medular del finiquito. pero el problema se genera cuando quiero traspasarlo a otro pc, o a otra carpeta dentro de mi pc, ya que para lograr la interaccion entre los 3 archivos le di rutas fijas a las macro, y no se me ocurre como cambiarlas, porque las macro no las cree en su totalidad, solo adapte unas que tome de este mismo foro. les dejo una macro, a ver si me pueden ayudar, se que hay una forma que la ruta la encuentre sola a partir de la ruta que tiene el archivo que se esta usando, esto sirve si los archivos estan todos en la misma carpeta, que es mi caso. y como todas las macros son iguales, modificando una sabre que modificar en las demas, ojala puedan ayudarme.

Sub Word_Ultimo()
MsgBox "IMPORTANTE: Revise el Finiquito creado antes de imprimirlo."
' abrir y pegar asiento en configuracion
    ChDir "C:\Documents and Settings\Victor Jara\Escritorio\AUTO - FINIQUITOS"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Victor Jara\Escritorio\AUTO - FINIQUITOS\Configuracion Finiquitos.xls"
    Windows("Base de Datos 2.0.xls").Activate
    Sheets("Base").Select
    Columns("A:L").Select
    Selection.Copy
    Windows("Configuracion Finiquitos.xls").Activate
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    Sheets("Feriado Proporcional").Select
    Range("H9").Select


Dim MiHoja As Object
Dim txt
txt = "C:\Documents and Settings\Victor Jara\Escritorio\AUTO - FINIQUITOS\Finiquito.doc"
Set MiHoja = CreateObject("Word.Application")
MiHoja.Visible = True
MiHoja.Documents.Open (txt)
MiHoja.Application.Run MacroName:="Ultimo"
Set MiHoja = Nothing
Application.WindowState = xlMinimized
End Sub

muchas gracias... saludos

[Ama]

Hola mastoca

La ruta del libro activo la puedes saber con esta linea:

Ruta = ActiveWorkbook.Path