Como capturar el nombre de archivo

... capturar el nombre de un archivo que actualmente este abierto.
... pasarle a una variable o a una hoja no importa el nombre de ese archivo cuando lo seleccione [...]

hola, Jairo !

> ... capturar el nombre de un archivo que actualmente este abierto.
> ... pasarle a una variable o a una hoja no importa el nombre de ese

puedes usar la propiedad 'name' de un objeto 'workbook' [p.e.]
Sub Nombres_Libros()
Dim LibroActivo As String, EsteLibro As String, Nombres As String, Libro

LibroActivo = ActiveWorkbook.Name
EsteLibro = ThisWorkbook.Name
For Each Libro In Workbooks
If Libros <> "" Then Libros = Libros & vbCr
Libros = Libros & Libro.Name
Next
MsgBox "Los libros abiertos en esta sesión son:" & vbCr & _
Libros & vbCr & _
"El libro activo es: " & LibroActivo & vbCr & _
"Este libro se llama: " & EsteLibro
End Sub

saludos,
hector.

P.D. Lito Camps... ¿no ha estado por aqui?