Sub FormatFiles()

Dim TabNAME As String
Dim WB As Workbook
Do
Set WB = Workbooks.Open(Filename:=ActiveCell)
Set TabName = ActiveSheet.Name

My Macro code - This is just simple code to format the WB workboob that
was opened.

Workbooks()"Master file").Activate
Sheets("TabNAME").Range("B5:B102").FormulaR1C1 .... (vlookup formula to
the WB file.


WB.Close True 'Save Changes
ActiveCell.Offset(1).Select
Loop Until ActiveCell = ""
End Sub

--
Regards,

timmulla