Dante Amor respondió:
H o l a : Te anexo la macro Sub InsertarImagen() 'Por.Dante Amor On Error Resume Next ruta = ThisWorkbook.Path & "\" ActiveSheet.Pictures.Delete For i = 2 To Range("A" & Rows.Count).End(xlUp).Row arch = Dir(ruta & Cells(i, "A") & ".*") If arch <> ""...