add value to multiple file by matching file name in excel VBA

[mehidy1437]

Hi Guys,

I have an excel file with some file/style name with corresponding file/style weight.

WEIGHT.xlsx
	A	B	C	D
1	STYLE			WEIGHT
2	AA-001			110
3	AA-002			130
4	AA-003			150
5	AA-004			170
6	AA-005			190
Sheet3

Cell Formulas
Range	Formula
D3:D6	D3	=D2+20

And I also have some files in a folder in "E" drive, with the style name with some prefix as below.

SS_AA-001.xls
SS_AA-002.xls
SS_AA-003.xls
SS_AA-004.xls
SS_AA-005.xls
SS_AA-006.xls
SS_AA-007.xls
SS_AA-008.xls

I would like to match the file name & put the corresponding weight into each file in CELL A5 in Sheet1.

Please help me to sort out this issue.