Copiar datos de archivo exe a otro archivo exe

Tengo esta macro que copia y pega (la uso para libro habilitado para macros)

Sub TRANFERENCIA_DE_DATOS()

Dim DALE As Variant
On Error GoTo sinTRANS
Set l1 = ThisWorkbook
Set h1 = l1.Sheets(Hoja6.Name) 'CAMBIAR NOMBRE DE HOJA IGUALES
Set l2 = Workbooks("VENTAS BASE.xlsm")
Set h2 = l2.Sheets(Hoja6.Name) 'CAMBIAR NOMBRE DE HOJA IGUALES
Application.ScreenUpdating = False
' Application.Speech.Speak "¿TU IMPRESIÓN FUE CORRECTA? VERIFICA PORFAVOR"
DALE = MsgBox("¿Deseas transferir datos? De: " & l1.Name & " al archivo: " & l2.Name, vbYesNo + vbExclamation, "ADVERTENCIA")
If DALE = vbYes Then
'AQUI ESTA LO QUE QUEREMOS

On Error GoTo 0
'LUEGO ESTA ESTO
Application.ScreenUpdating = False
Call DepositosFilasAzules65
Call DepositosFilasAzulesKKC
Call DepositosFilasAzules62uno
Call DepositosFilasAzules62dos
Call DepositosFilasAzulesTuno
Call DepositosFilasAzulesAVILA
Call DepositosFilasAzulesXTABAY
Call DepositosFilasAzules5COL
Call DepositosFilasAzules63dos
Call DepositosFilasAzules69ado
Call DepositosFilasAzules1
Call DepositosFilasAzules2
Call DepositosFilasAzules3
Call DepositosFilasAzules4
MsgBox "TRANSFERENCIA REALIZADA CON EXITO", vbExclamation + vbMsgBoxRight, "AVISO"
Set l1 = ThisWorkbook
'Set h1 = l1.Sheets(Hoja5.Name) 'CAMBIAR NOMBRE DE HOJA IGUALES
Set l2 = Workbooks("VENTAS BASE.xlsm")
' Set h2 = l2.Sheets(Hoja5.Name) 'CAMBIAR NOMBRE DE HOJA IGUALES
Cierre = "SI"
l1.Sabe
l1.Close

Workbooks("VENTAS BASE.xlsm").Close
Cierre = "SI"
l2.Save
Cierre = "SI"
l2.Close
Cierre = "SI"
Application.Quit
Else
MsgBox "OPERACIÓN CANCELADA", vbOKOnly + vbInformation, "CANCELADO"
End If

Exit Sub

sinTRANS: ' NOMBRE DEL ERROR
MsgBox "No se encuentra abierto el archivo destino.", vbOKOnly + vbCritical, "ERROR"

End Sub

Recientemente lo volví ejecutable osea .exe, el problema que al ejecutar el código no busca el libro:

Set l2 = Workbooks("VENTAS BASE.xlsm")

aunque ya lo tenga abierto pero en .exe

Hay alguna forma de continuar la macro sin el problema de que lo haya buleto ejecutable..

Puedo enviar el archivo si desean