Multi-Wookbook Macro

Sub MainMacro()
    Dim LR, FR As Long
    Dim n, m As String
    Dim xDirect$, xFname$, InitialFoldr$
    Dim WS_Count As Integer
    Dim i As Integer
 
    'Change ScreenUpdating, Calculation and EnableEvents
    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With
 
    InitialFoldr$ = "S:\Power Networks\Asset Management\SND\OPC\WAYLEAVES\Balance Score Card\"    '<<< Startup folder to begin searching from
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select the folder where files are"
        .InitialFileName = InitialFoldr$
        .Show
        If .SelectedItems.Count <> 0 Then
            xDirect$ = .SelectedItems(1) & "\"
            xFname$ = Dir(xDirect$, 7)
            Do While xFname$ <> ""
 
            Workbooks.Open (xDirect$ & xFname$), UpdateLinks:=False
            n = Replace(Mid(xFname$, 12, 99), ".xls", "")
            WS_Count = ActiveWorkbook.Worksheets.Count
   For i = 1 To WS_Count
 
            Windows(xFname$).Activate
            Sheets(i).Select
            m = Left(ActiveWorkbook.Worksheets(i).Name, 3)
            Windows("Master.xls").Activate
            Sheets("Summary").Select
            LR = Range("A" & Rows.Count).End(xlUp).Row + 1
            Range("B" & LR).Select
            ActiveCell.Value = m
            Range("A" & LR).Select
            ActiveCell.Value = n
            Windows(xFname$).Activate
            Range("G6:G7,G10:G12,G14:G18,G20:G27").Select
            Selection.Copy
            Windows("Master.xls").Activate
            Sheets("Summary").Select
            Range("C" & LR).Select
            ActiveSheet.Paste
            FR = Range("A" & Rows.Count).End(xlUp).Row
            LR = Range("C" & Rows.Count).End(xlUp).Row
            Range("A" & FR & ":B" & LR).Select
            Selection.FillDown
   Next i
    Windows(xFname$).Activate
    ActiveWindow.Close savechanges:=False
    Range("A1").Select
 
                xFname$ = Dir
 
            Loop
         End If
    End With
 
    'Restore ScreenUpdating, Calculation and EnableEvents
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
        .Calculation = xlCalculationAutomatic
    End With
 
    'PT
    Windows("Master.xls").Activate
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Sheets("Summary").Range("A1").CurrentRegion.Address).CreatePivotTable TableDestination:="", TableName:= _
        "PivotTable1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Name", _
        ColumnFields:="Month"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Cost").Orientation = _
        xlDataField
    Range("A1").Select
End Sub