makroda hata

[kemalist]

Dim S1 As Worksheet, S2 As Worksheet
Set S1 = Sheets("MTDS"): Set S2 = Sheets("BOLL")

S1.Range("AOH5:AOI5").Copy S1.Range("AOJ5")
S1.Range("AOH857:AOI857").Copy S1.Range("AOJ857")
S1.Range("AOH1709:AOI1709").Copy S1.Range("AOJ1709")
S2.Range("AXW6:AXY6").Copy S2.Range("AXZ6")

arkadaşlar yukarıdaki kodu çalıştırmak istediğimde örnek dosyadaki hata mesajı veriyor.Bu sorunu nasıl çözebiliriz ?Yardımlarınız için şimdiden teşekkür ederim....

 

[Korhan Ayhan]

Merhaba,

Kodlarınızın en üst satırında mükerrer yazılmış bir kod satırı var. Bu sebeple hata veriyor. Kontrol ediniz.

 

[kemalist]

Merhaba,

Kodlarınızın en üst satırında mükerrer yazılmış bir kod satırı var. Bu sebeple hata veriyor. Kontrol ediniz.

teşekkürler korhan hocam.....