Maybe try this.
Change the folder references where required.
Sub Maybe()
Dim i As Long, j As Long, filename
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
filename = Dir("C:\Folder With Pics\" & ActiveSheet.Cells(i, j).Value & "*")
ActiveSheet.Shapes.AddPicture _
filename:="C:\Folder With Pics\" & filename, _
linktofile:=msoFalse, savewithdocument:=msoCTrue, _
Left:=Cells(i, j).Left, Top:=Cells(i, j).Top, Width:=Cells(i, j).Width, Height:=Cells(i, j).Height
filename = Dir
Next j
Next i
End Sub