Run-time error 1004 The formula is not complete. Make sure an ending square bracket ]

[triaji]

How do I fix this runtime error? Do I have to begin again. Here is the code:

Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Kode Agent'[All]", _
xlLabelOnly, True
Selection.copy
Sheets("1.FYC+SYC FINANCING").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Kode SO'[All]", _
xlLabelOnly, True
Application.CutCopyMode = False
Selection.copy
Sheets("1.FYC+SYC FINANCING").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable1").PivotSelect "PRODUCT[All]", xlLabelOnly _
, True
Application.CutCopyMode = False
Selection.copy
Sheets("1.FYC+SYC FINANCING").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable2").PivotSelect "'Kode Agent'[All]", _
xlLabelOnly, True
Selection.copy
Sheets("2.RNC+TU FINANCING").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable2").PivotSelect "'Kode SO'[All]", _
xlLabelOnly, True
Application.CutCopyMode = False
Selection.copy
Sheets("2.RNC+TU FINANCING").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable2").PivotSelect "PRODUCT[All]", xlLabelOnly _
, True
Application.CutCopyMode = False
Selection.copy
Sheets("2.RNC+TU FINANCING").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


Sheets("Control").Select

End Sub

[triaji]

Solved. Thank you

[HaHoBe]

Hi, triaji,

no error reported from the debugger in Excel2013 fo the sniplet you posted. And if you soplved your problem please mind to describe the solution you found to your problem.

Please use the code-tags instead of quote-tags for showing procedures.

Ciao,
Holger