Insert Different Picture into Multiple Sheets

[Admin]

try

    For i = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(i).Range("H10")
        Set xShape = Sheets(i).Shapes.AddPicture(xPath & xFiles(i - 1), True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next

I assume you have 40 sheets in the workbook. Also add the file names in xFiles variable.