title: Run-time error '1004': The PivotTable field name is not valid
body: <p>I am creating an 8th Pivot Table in the same spreadsheet and I am getting the following error for the LAST PIVOT TABLE:</p>
  
  <p><strong>"Run-time error '1004':
  The PivotTable field name is not valid. To create a PivotTable report you must use data that is organized as a list of labeled columns. If you are changing the name of a PivotTable field, you must type a new name for the field.
  "</strong> </p>
  
  <p>However, I have tried to change the name of Pivot Table several times and the issue has not been resolved. </p>
  
  <p>My code is as follows:</p>
  
  <pre><code>Sub Macro1()
  'Pivot Table 8
  'Declare Variables
  Dim PSheet As Worksheet
  Dim DSheet As Worksheet
  Dim LastRow As String
  Dim LastCol As String
  Dim SData As String
  Dim PCache As PivotCache
  Dim PTable As PivotTable
  
  Set PSheet = Worksheets("US MASTER")
  Set DSheet = Worksheets("US Master Macro")
  
  LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
  LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
  SData = "'US Master Macro'!R1C1:R" &amp; LastRow &amp; "C" &amp; LastCol
  
  Set PCache = ActiveWorkbook.PivotCaches.Create _
  (SourceType:=xlDatabase, SourceData:=SData)
  
  Set PTable = PCache.CreatePivotTable(TableDestination:=Worksheets("US MASTER").Range("Y4"), TableName:="InfoView Cases")
  
  With ActiveSheet.PivotTables("InfoView Cases")
   .SmallGrid = False
   'Add Days to Row Field
   With .PivotFields("Age of Case")
   .Orientation = xlRowField
   .Position = 1
   End With
   'Add PR ID to Values Field
   With .PivotFields("PR ID")
   .Orientation = xlDataField
   .Function = xlCount
   .Position = 1
   End With
   'Add Filter
   With .PivotFields("SAP Notification")
   .Orientation = xlPageField
   .Position = 1
   End With
   'Add Filter
   With .PivotFields("Case Status")
   .Orientation = xlPageField
   .Position = 2
   End With
  End With
  
  'Deselect Filter
  
      l = ActiveSheet.PivotTables("InfoView Cases").PivotFields("SAP Notification"). _
          PivotItems.Count - 1
  
      For k = 1 To l
          With ActiveSheet.PivotTables("InfoView Cases").PivotFields("SAP Notification")
              .PivotItems(k).Visible = False
          End With
      Next k
  
          With ActiveSheet.PivotTables("InfoView Cases").PivotFields("SAP Notification")
              .PivotItems("(blank)").Visible = True
          End With
  
  'Deselect Filter
  
      n = ActiveSheet.PivotTables("InfoView Cases").PivotFields("Case Status"). _
          PivotItems.Count - 1
  
      For m = 1 To n
          With ActiveSheet.PivotTables("InfoView Cases").PivotFields("Case Status")
              .PivotItems(m).Visible = False
          End With
      Next m
  
          With ActiveSheet.PivotTables("InfoView Cases").PivotFields("Case Status")
              .PivotItems("(blank)").Visible = True
          End With
  
  
  'Add InfoView Cases
  PSheet.Range("Y3").Value = "InfoView Cases"
  PSheet.Range("Y4").Value = "Days"
  'Merge
  PSheet.Range("Y3:Z3").Merge
  
  'Sort Pivot Table
      Range("Y5:Y100").Select
      ActiveSheet.PivotTables("InfoView Cases").PivotFields("Age of Case").AutoSort _
          xlAscending, "Age of Case"
  
  
  End Sub
  </code></pre>
  
  <p>My code breaks in the line</p>
  
  <pre><code>Set PTable = PCache.CreatePivotTable(TableDestination:=Worksheets("US MASTER").Range("Y4"), TableName:="InfoView Cases")
  </code></pre>