Formulario con macro

Hola,
Si estoy complicado con este tema, es por eso mi falta de claridad.
Tengo la siguiente Macro:
Sub auto_open()
Sheets("Hoja1").Select
' AumentarFolio()
ChDir "C:\"
Workbooks.Open Filename:="C:\Documents and Settings\Client43\Mis documentos\Folio.xls" 'abre el archivo donde esta almacenando el consecutivo
'abre el archivo donde esta almacenando el consecutivo
Range("A1").Select
a = Range("a1").Value
a = a + 1
Range("a1").Value = a
Workbooks("Folio.XLS").Close savechanges:=True
Range("j2").Value = a
Range("j2").Select
Selection.FormulaR1C1 = Range("j2") + 1
Sheets("Hoja2").Select
End Sub
Lo que me permite cambiar el folio del libro "formulario.xls" recién abierto.
El Libro "Folio.xls" solo tiene un número.
La macro al abrir el libro Folio.xls, traspasa el número al formulario, luego le suma 1, guarda el libro y finalmente lo cierra. Todo esto de abrir, pegar, sumar, guardar y cerrar es muy rápido, lo que me permite seguir trabajando con el formulario foliado.
El problema es que el archivo Folio.xls, tiene una ruta especifica y solo puedo foliar correctamente el formulario cuando lo abro desde mi notebook.
He probado otras alternativas pero producen pausas en la macro como abrir ventana de búsqueda del libro folio.xls. Esto no me sirve porque el cambio de folio debe ser rápido y casi imperceptible.
Ahora desde mi computadora no tengo ningún problema para ejecutar la macro.
He probado compartir el libro Folio.xls, pero de igual forma la macro debe seguir una ruta especifica lo que inhabilita uno de los dos computadores.
En resumen, el Formulario.xls que contiene la macro al ejecutarse debe foliar el formulario en mi computador o en otro.
Otra alternativa es crear un libro "Folio2.xls en el otro PC. Y que la macro pueda tomar la ruta correcta dependiendo en que PC se este ejecutando. Esto me permitiría saber de donde salio el formulario.
Bueno espero no marearte más de la cuenta.
Gracias por tu ayuda y paciencia