Extraer datos de un libro.xlsm a un libro.exe

Tengo un libro llamado origen. Exe

En el tengo esta macro

Sub search()
Application.ScreenUpdating = False
DisplayAlerts = False
Dim fil, uf As Integer
Dim path As Variant
Dim mybook As String
uf = Sheets("Libros").Range("I" & Rows.Count).End(xlUp).Row
fila = uf + 1
'Encuentra el nombre del archivo
path = Application.GetOpenFilename
FullName = Split(path, Application.PathSeparator)
mybook = FullName(UBound(FullName))
Workbooks.Open Filename:=path, UpdateLinks:=0
a = Sheets("Hoja1").Range("A1:A100")
Workbooks(mybook).Close True
Sheets("Libros").Range("A9:A100") = a
Cells(fila).RowHeight = 30
DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

me funciona excelente en un libro.xlsm  pero al transformar dicho libro a .EXE este me falla

¿Me pueden ayudar a solucionarlo o no tiene solución? ¿Dónde esta el error?

Por que me sale error "fuera de intervalo" en esta línea

a = Sheets("Hoja1").Range("A1:A100")