resim getirme makrosu hata

[aydaydogan]

merhabalar,

Daha önce çalışan makro da şuan aşağıdaki hata alıyorum. Yardımcı olabilir misiniz. Teşekkürler.

"Bu dosya içeri aktarılırken bir hata oluştu"

Sub Düğmebora_Tıklat()
On Error Resume Next
Dim a As Integer
Dim son As Integer
Dim ad As String
Dim yol As String
yol = InputBox("", "", "Resimlerin bulunduğu dosyanın tam adını buraya yapıştırınız", 5000, 6000) & ""
son = Range("C" & Rows.Count).End(xlUp).Row ' Seçilecek sütun
On Error Resume Next
For a = 3 To son
    ad = yol & Cells(a, 3) ' Seçilecek yol
    Shapes.AddPicture ad, msoFalse, msoCTrue, Cells(a, 2).Left, Cells(a, 2).Top, 135, 90
    Rows(a).RowHeight = 100
Next a
On Error GoTo 0
MsgBox "İşlem tamamlandı"
End Sub