Run Macro when workbook is close

[nih]

All,

I have multiple workbooks with unique names in one of my folder. Each workbook has similar sheets and it contains pivot values.

I recorded the program from one of the workbook which selects the fields i need.

Is there a way I can do this for all the workbooks in the folder without opening one by one?

Basically I want to run this below macro for each and every workbook in that folder.

Sub Test()
'

'
With ActiveSheet.PivotTables("PivotTable7").PivotFields("OpCo")
.PivotItems("").Visible = False
.PivotItems("Bal").Visible = False
.PivotItems("Bas").Visible = False
.PivotItems("Beu").Visible = False
.PivotItems("Bna").Visible = False
.PivotItems("Bpl").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable7").PivotFields("Material Group")
.PivotItems("").Visible = False
.PivotItems("Corn Oil").Visible = False
.PivotItems("Feedgrains").Visible = False
.PivotItems("Freight").Visible = False
.PivotItems("Livestock").Visible = False
.PivotItems("Ngfi").Visible = False
.PivotItems("Oils").Visible = False
.PivotItems("Oilseeds").Visible = False
.PivotItems("Potash").Visible = False
.PivotItems("Sbo").Visible = False
.PivotItems("Sugar").Visible = False
.PivotItems("Wheat").Visible = False
.PivotItems("(blank)").Visible = False
.PivotItems("Uan").Visible = False
.PivotItems("Sbm").Visible = False
.PivotItems("Soybeans").Visible = False
.PivotItems("Unknown").Visible = False
.PivotItems("Softseeds").Visible = False
.PivotItems("Rapeseeds").Visible = False
.PivotItems("Mapdap").Visible = False
.PivotItems("Soyabeans").Visible = False
End With
End Sub

[shg]

Please edit your post to add code tags.

[nih]

ok done

thx