Run-time error '1004": The forumula is not complete. Make sure an ending square bracket ] is not missing.

[jritchey801]

This was made in Excel 2013 for windows and I'm still using that version of excel. I've had zero issues with this macro, then all of a sudden this morning I'm getting this error. I've been to multiple sites and tried various things, but nothing seems to fix it. Any thoughts?

I do get the option to debug and this is the line that it gives me as the problem:

ActiveSheet.PivotTables("PivotTable4").PivotSelect "GHUT[All]", xlLabelOnly + _
xlFirstRow, True

Full Macro is:

Sub Run_()
'
' Run_ Macro
'


'
Sheets("CIS DUMP Data").Select
Rows("85363:85363").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("10:10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("A7").Select
Workbooks.Open Filename:="P:\DAILY_REPORTS\CIS Loads\Source_Data\export.xlsx"
Rows("2:2").Select
Range("J2").Activate
Range(Selection, Selection.End(xlDown)).Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("CIS Pivots of Remaining.xlsm").Activate
Range("A10").Select
Sheets("CIS DUMP Data").Select
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A10").Select
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Windows("export.xlsx").Activate
Range("H85355").Select
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Ready for Prod").Select
Range("B34").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Range("G34").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Range("K33").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
Sheets("Remaining Prod by Subk ").Select
Range("A15").Select
ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh
Sheets("Pending QC").Select
Range("B16").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Range("F16").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Range("K16").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable4").PivotSelect "GHUT[All]", xlLabelOnly + _
xlFirstRow, True
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable4").PivotSelect "GHUT[All]", xlLabelOnly + _
xlFirstRow, True
Sheets("Pending by SubK").Select
ActiveSheet.PivotTables("PivotTable2").PivotSelect "PROD_CREW[All]", _
xlLabelOnly + xlFirstRow, True
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Sheets("Non FQC").Select
Range("A79").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Range("O80").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
ActiveWindow.SmallScroll Down:=-96
Range("I13").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Sheets("Non FQC by SubK").Select
Range("A14").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Sheets("Non FQC").Select


Range("V14").Select
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
ActiveWindow.ScrollWorkbookTabs Sheets:=1


Sheets("Task Count by GHUT2").Select
Range("A10").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh


Sheets("EPC 7 8 9 10 Pending QC").Select
Range("A8").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
ActiveWindow.ScrollWorkbookTabs Sheets:=-8
Sheets("Macro").Select
Range("J6").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("J6").Select
Selection.Copy
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Range("J7").Select



End Sub