xlsm de kod çalışmıyor

[kemalist]

Sub A_Dosyasından_B_Dosyasına_Kayıt()
'BU dosyaların açık olması lazım.
Workbooks("ALERTER1.0.xlsm").Sheets("yds").Range(" O8381").Copy _
Workbooks("KAYIT.xlsm ").Sheets("Sayfa2").Range("F1")

MsgBox "İŞLEM TAMAM"
End Sub
Bu kod xls uzantılı dosyalardaçalışıyor fakat neden xlsm uzantılı dosyalarda çalışmıyor?

 

[kemalist]

dosyalarımı farklı kaydet -makro içerik-yapıp makrolu bir klasör altında topladım sorun çözüldü.aslanın hesabı kendi işimizi kendimiz çözdük bu sefer.