Office 2010 ile Office 2013 arasında bu makro çalışırken ne fark var?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [C4, A6]) Is Nothing Then Exit Sub
    Call Resim_Getir
End Sub

Office 2010 ile Office 2013 arasında bu makro çalışırken ne fark var?
Saygılarımla

 

[Emir Hüseyin Çoban]

Bu kodlarda asıl işlem Resim_Getir kodlarınızda onlarıda yazınız.
Fark derken sıkıntı nedir, hata mı veriyor.

.

 

[Tevfik_Kursun]

Günaydın Hüseyin Hocam,

Sub Resim_Getir()
        sat1 = 3
        sat2 = 6
        sut1 = "AC"
        sut2 = "AF"

        Set Adres = Range(Cells(sat1, sut1), Cells(sat2, sut2))
        Set Adres2 = Cells(sat2, sut2)
            Dim yer
            Dim Picture As Object
                For Each Picture In ActiveSheet.Shapes
                
                If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = "Picture" Then
                    yer = Cells(Picture.BottomRightCell.Row, Picture.BottomRightCell.Column).Address

                    yer1 = Adres2.Address
                    If yer = yer1 Then
                        Picture.Delete
                    Exit For
                    End If
                End If
                Next Picture

            son = 6
            ReDim uzanti(son)
                uzanti(1) = ".jpg"
                uzanti(2) = ".JPG"
                Klasor = "D:\151003\FV\FvFoto\"

                isim = Cells(1, "AI").Value

            For j = 1 To son
                Dosya = Klasor & isim & uzanti(j)
                    If CreateObject("Scripting.FileSystemObject").FileExists(Klasor & isim & uzanti(j)) = True Then
                        ActiveSheet.Shapes.AddPicture Dosya, msoFalse, msoCTrue, Adres.Left + 2, Adres.Top + 2, Adres.Width - 4, Adres.Height - 4
                        ActiveSheet.Cells(7, "AJ").Select

                        Exit For
                    End If
            Next
End Sub

Resim_Getir F8 ile her seferinde görevini yapıyor.
2010 da bu haliyle çok düzgün çalışıyordu. Dün makinam formatladığında 2013 kuruldu. Manuel olarak deneme yaptığımda çalıştı. Baskı için otomatik olarak değerler değişince yeni resimler gelmez oldu.
Acaba nedeni ne olabilir?
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Hüseyin Hocam,

   If Intersect(Target, [C4, A6]) Is Nothing Then Exit Sub

Bu satırı silince çalışmaya başladı. Bu satır C4 ve A6 yoksa anlamına gelmiyor mu?
İlginize teşekkür ederim.
Saygılarımla