aslında bir sorun göremedim ama kaynağı silip yeniden ayarladığımda çalıştı
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