Oğuz bey
"Declare Function"              gördüğünüz yere
"Declare PtrSafe Function"      yapıştırmayı deneyebilir misiniz?

eğer sorun 64 bitten kaynaklanıyorsa genel olarak kod - kendinize göre uyarlayarak - aşağıdaki şekilde yazıla bilir:

#If VBA7 And Win64 Then '64 bit için
    Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#Else '32 bit için
    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#End If