Trying to insert Pivot Table

I recorded a new macro, using the tab View Macros-Record Macro, which resulted in the following VBA code:

   Sub CreatePivotTable()
       Sheets("Year Data").Select
       Range("A3:F24").Select
       ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
          "Year Data!R3C1:R24C6", Version:=xlPivotTableVersion14).CreatePivotTable _
          TableDestination:="Yearly Summary!R3C1", TableName:="PivotTable3", _
          DefaultVersion:=xlPivotTableVersion14
         
       Sheets("Yearly Summary").Select
       Cells(3, 1).Select 
   End Sub

The recording did exactly as I wanted, taking the data from the "Year Data" WS and adding the new pivot table to the "Yearly Summary" WS. 

As a test of the macro, I deleted the initial pivot table that was created on the "Yearly Summary" WS.  The problem I have now, when I attempt to run this macro again it constantly fails on the 4th line of the macro with Run-time error '5': Invalid procedure call or argument.

        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
          "Year Data!R3C1:R24C6", Version:=xlPivotTableVersion14).CreatePivotTable _
          TableDestination:="Yearly Summary!R3C1", TableName:="PivotTable3", _
          DefaultVersion:=xlPivotTableVersion14

I cannot figure out why it works when I am recording the macro but fails when I try to run it alone. 

Help is greatly appreciated.