Using Dir() to return name of all images

[gmayor]

The issue is similar. ImgPath returns the name without the path. Change the line:

Set oLogo = .InlineShapes.AddPicture(ImgPath)

to

Set oLogo = .InlineShapes.AddPicture(ImgPath & "\" & ImgName)

also add

Exit Sub

after the message box.