Excell'de hücreye klasörden jpg ekleme

Sub ResimEkle() 
  klasor = "C:\resimler\" 
  satir = 1 
  kolon = 1 
  Do 
      If Cells(satir, 1) = "" Then Exit Do 
      dosya = klasor & Cells(satir, kolon) & ".jpg" 
      With ActiveSheet.Pictures.Insert(dosya) 
          .Left = Cells(satir, 2).Left 
          .Top = Cells(satir, 2).Top 
          .Height = Cells(satir, 2).Height 
          .Width = Cells(satir, 2).Width 
      End With 
      satir = satir + 1 
  Loop 
  MsgBox "Bitti !" 
  End Sub