This may take awhile, but maybe:
Sub hld142()
Dim i As Long
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For i = 1 To 150
Workbooks.Open FileName:="D:\common\YOUR PATH\Product " & i & ".xls"
Workbooks("Product " & i & ".xls").Sheets("Instruction").Cells.Value = Workbooks("Product Master.xls").Sheets("Instruction").Cells.Value
Workbooks("Product " & i & ".xls").Close True
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Note: Change .xls in code to .xlsx
Bookmarks