Çözüldü Resimleri hücre içine yerleştirme

Merhaba, Makro kaydet ile resimi seçip hücre içerisine yerleştir yapıyorum. Ama sadece makro kaydındaki resim adı ile işlem yapmakta.
Yapmak istediğim. her resim seçtiğimde üzerindeki hücreye resmi yerleştirsin.
bendeki kod şu şekilde. kalın yazılanlarda hata veriyor.

Sub hücreicineyerleştir()
'
' hücreicineyerleştir Makro
'
' Klavye Kısayolu: Ctrl+w
'
ActiveWindow.SmallScroll Down:=1
ActiveSheet.Shapes.Range(Array("Picture 6")).Select
ActiveSheet.Shapes("Picture 6").PlacePictureInCell
End Sub

yardımlarınızı rica ederim arkadaşlar.
herkese kolay gelsin