T
timmulla
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
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