Option Explicit
Sub Insertion()
Dim Cel&
ActiveSheet.DrawingObjects.Delete
For Cel = 2 To Range("AA" & Rows.Count).End(3).Row
On Error Resume Next
Cells(Cel, "AB").Select
ActiveSheet.Pictures.Insert("C:\Images\" & ActiveCell.Offset(0, -1).Text & ".png").Select
Next Cel
Range("AB1").Select
End Sub