Macro adjuntar hojas de libro en un nuevo excel

[Tiburcio]

Buen Día

Mi nombre es Rodrigo Tiburcio y tengo una macro que lo que hace es que en un archivo tengo varios docuementos de excel. El boton lo que hace es que junta todas las hojas de los diferentes archivos en una nueva, el problema es que cuando la intentamos trabajar en otra computadora no corre la macro ya que esta linkeada a que solo lo trabaje en mi computadora.

Private Sub CommandButton1_Click()

    Dim directorio As String
    Dim fichero As String
    Dim ficherodondeimportar As String
    Dim hoja As Worksheet
    Dim totalhojas As Integer
    directorio = "ThisWorkbook.Path & " \ " & NombreLibro"
    ficherodondeimportar = "importar-hojas-bueno.xlsm"
    fichero = Dir(directorio & "*.xlsx")
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Do While fichero <> ""
        
        Workbooks.Open (directorio & fichero)
        
        For Each hoja In Workbooks(fichero).Worksheets
            
            totalhojas = Workbooks(ficherodondeimportar).Worksheets.Count
            
            Workbooks(fichero).Worksheets(hoja.Name).Copy after:=Workbooks(ficherodondeimportar).Worksheets(totalhojas)
        Next hoja
        Workbooks(fichero).Close
        fichero = Dir()
        
    Loop
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
 End Sub

Necesito que sea más general para que pueda trabajar en cualquier otra computadora.

Saludos , excelente día.

[Antoni]

Esta macro, tal como está, no puede funcionar en ningún sitio, la instrucción

 directorio = "ThisWorkbook.Path & " \ " & NombreLibro"  es errónea, debería ser:

 directorio = ThisWorkbook.Path & " \ "

en cualquier caso te dejo un archivo con la macro corregida que funciona en cualquier PC, siempre y cuando, todos los archivos estén en el mismo directorio. 
 

Fusionador de xlsx.xlsm