#If VBA7 Then
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If
ile değiştirin.
32 bit ofis programı kullandığınız için o hatayı alıyorsunuz. veya değiştirimek istemezseniz
PtrSafe silin kaydedin çalışır.