Podemos insertar la referencia del documento con el nombre de archivo por macro en Excel.
- NOMBRE HOJA
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:
Sub NombreHoja()
Range("A1") = ActiveSheet.Name
End Sub
A1, indica la celda deseada de la hoja activa donde insertarlo.
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
Ejecutar la macro y verificar como muestra el nombre de la hoja en A1.
- NOMBRE ARCHIVO
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:
Sub NombreHoja()
Range("A2") = ThisWorkbook.Name
End Sub
A2, indica la celda deseada de la hoja activa donde insertarlo.
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
Ejecutar la macro y verificar como muestra el nombre del libro en A2.
- NOMBRE COMPLETO
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:
Sub NombreHoja()
Range("A3") = ActiveWorkbook.FullName
End Sub
A3, indica la celda deseada de la hoja activa donde insertarlo.
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
Ejecutar la macro y verificar como muestra la ruta y el nombre del libro en A3.
Así podemos insertar el nombre de archivo por macro en Excel.
Excel Experto VBA - Macros