windows 2007 de excelde sayfaya eklenen sil makrosu hk.

[rızay]

Merhaba arkadaşlar,

Benim sorum sizlere şu: Windows 2007 yüklü bilgisayarımda excel' de(2010-2013 ve 2015 de) sayfaya eklenen sil makrosunu çalıştırdığımda verileri ve fotoğrafların hepsini hemen silmiyor. Mutlaka 1 tane fotoğraf kalıyor. Verileri de 2.defa sil makrosu nu çalıştırdığımda siliyor. Windows 7 excel 2010,excel 2013 ve sonrasında bu hata oluştu. Daha önceki eski excel sürümlerinde bu hata olmuyordu. Kodlar aşağıdadır.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Sub teklik()
Dim ts, Resim As Picture, Alan As Range
Sheets("TANITIM").ComboBox1.Clear
For ts = 2 To Sheets("DATABASE").Cells(65536, "G").End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("DATABASE").Range("G2:G" & ts), _
Sheets("DATABASE").Cells(ts, "G")) = 1 Then
Sheets("TANITIM").ComboBox1.AddItem Sheets("DATABASE").Cells(ts, "G")
End If
Next



Set Alan = Range("B6,A8:j65536")

For Each Resim_Mem In ActiveSheet.Pictures
If Not Intersect(Resim_Mem.TopLeftCell, Alan) Is Nothing Then
Resim_Mem.Delete
End If
Next

Set Alan = Nothing

MsgBox "Silme işleminiz tamamlanmıştır.Şube Seçiniz.", vbInformation
Range("h3").Select

End Sub