Selecting a set of codes for Pivot table (Values) using VBA

Sub AddPivotFields()




Dim pvt As PivotTable
Dim dr As String
Dim dr_Name As String
Dim c As Range
Dim vcount As Long
















Set pvt = ActiveSheet.PivotTables("PivotTable1")








pvt.PivotFields("Date").Orientation = xlRowField
pvt.PivotFields("Date").LayoutForm = xlTabular




pvt.PivotFields("Activity").Orientation = xlRowField
pvt.PivotFields("Activity").Caption = "Activity"
pvt.PivotFields("Activity").LayoutForm = xlTabular




pvt.PivotFields("Activity").Subtotals = _
        Array(False, False, False, False, False, False, False, False, False, False, False, False)




pvt.PivotFields("Code").Orientation = xlRowField
pvt.PivotFields("Code").Caption = "Code"
pvt.PivotFields("Code").LayoutForm = xlTabular


'Direct and Indirect time do not change and are included within every report.


dr = "Direct"
dr_Name = "Direct Time"




pvt.AddDataField pvt.PivotFields("Direct"), dr_Name, xlSum
pvt.PivotFields("Direct Time").NumberFormat = "[h]:mm"




dr = "Indirect"
dr_Name = "Indirect Time"




pvt.AddDataField pvt.PivotFields("Indirect"), dr_Name, xlSum
pvt.PivotFields("Indirect Time").NumberFormat = "[h]:mm"


'I am having trouble automating this section  I usually need to remove the comments with the code that are being used..
'like this example I am using A215 & B300 it would be nice if i could have an array with all the codes so it could check itself.. I tried but never worked..
 




    dr = "A215"
    dr_Name = "Avg A215"




    pvt.AddDataField pvt.PivotFields("A215"), dr_Name, xlAverage
    pvt.PivotFields("Avg A215").NumberFormat = "[h]:mm"




'    dr = "A295"
'    dr_Name = "Avg A295"
'
'    pvt.AddDataField pvt.PivotFields("A295"), dr_Name, xlAverage
'    pvt.PivotFields("Avg A295").NumberFormat = "[h]:mm"




'    dr = "B200"
'    dr_Name = "Avg B200"
'
'    pvt.AddDataField pvt.PivotFields("B200"), dr_Name, xlAverage
'    pvt.PivotFields("Avg B200").NumberFormat = "[h]:mm"




'    dr = "B103"
'    dr_Name = "Avg B103"
'
'    pvt.AddDataField pvt.PivotFields("B103"), dr_Name, xlAverage
'    pvt.PivotFields("Avg B103").NumberFormat = "[h]:mm"




    dr = "B300"
    dr_Name = "Avg B300"
    
    pvt.AddDataField pvt.PivotFields("B300"), dr_Name, xlAverage
    pvt.PivotFields("Avg B300").NumberFormat = "[h]:mm"


End Sub

Dim i As Long, piv_obj As Object, arr As Variant, arr1 As Variant




arr = Array("H100", "H175", "H200", "H209", "H300", "H400", "H600", "K100", "K200", "K305", "B200", "B401", "B500")
arr1 = Array("Avg H100", "Avg H175", "Avg H200", "Avg H209", "Avg H300", "Avg H400", "Avg H600", "Avg K100", "Avg K200", "Avg K305", "Avg B200", "Avg B401", "Avg B500")




For i = 0 To UBound(arr)
'I am receiving an error on the Set piv_obj line
    Set piv_obj = pvt.PivotFields(arr(i)) 
    
    If Not piv_obj Is Nothing Then
        
        dr = arr(i)
        dr_Name = arr1(i)
        
        pvt.AddDataField pvt.PivotFields(dr), dr_Name, xlAverage
        pvt.PivotFields(dr_Name).NumberFormat = "[h]:mm"




        End If
    Next i

Dim i As Long, piv_obj As Object, arr As Variant, arr1 As Variant




arr = Array("H175", "H200", "H209", "H300", "H400", "H600", "K100", "K200", "K305", "B200", "B401", "B500")




For i = 0 To UBound(arr)
    Set piv_obj = pvt.PivotFields(arr(i))
    
    If Not piv_obj Is Nothing Then
        On Error Resume Next
        dr = arr(i)
        dr_Name = "Avg " & arr(i)
        
        pvt.AddDataField pvt.PivotFields(arr(i)), dr_Name, xlAverage
        pvt.PivotFields(arr1(i)).NumberFormat = "[h]:mm"




        End If
    Next i