Not:
sorunuzla ilişkili değil ama modül1'deki aşağıdaki kod 64 bitte sorun çıkardığından bir altındaki kodla değiştirdim
böylece hem32 bitte hem de 64 bitte çalışır. (en azından ben öyle biliyorum)
sadece 32bitte çalışan kod
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
hem32 hem de 64 bitte çalışan kod#If VBA7 And Win64 Then '64 bit için
Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#Else '32 bit için
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
#End If