Insert all images if folder name matches same cell value (col a below loop)

Hi, I have a task that is tedious. I hope you can help me with automating it. I have an excel sheet ROW A contains info. I also have a folder (which contains the pictures) with same value. Using macro need to match "same/ identical" folder name and insert it to same Word document. Right now, I have to manually pick using Folder Dialog and macro (see the code below):

Please Login or Register  to view this content.

From above strFolder should be same as cell value (excel sheet col A). Also, please tweak the codes so that the pictures inserted will fit one page regardless of how many. I will do the layout manually. Thanks everyone for the advance help!