Macro que muestre imagen en objeto, según valor de celda

tengo esta macro que copie, pero al ejecutarla me aparece error de automatización

Private Sub Worksheet_Change(ByVal Target As Range)
foto = Range("a1").Value
ActiveSheet.foto.Picture = LoadPicture("f:\guerreros\fotos\" & foto & ".jpg")
End Sub
me podrán ayudar a arreglarlo¡?