Sub Pivot()

ThisWorkbook.RefreshAll
Dim ws As Excel.Worksheet
Dim pvt As Excel.PivotTable
Dim pvi As PivotItem

For Each ws In ActiveWorkbook.Worksheets
    For Each pvt In ws.PivotTables
        pvt.ClearAllFilters
        For Each pvf In pvt.PivotFields
        On Error Resume Next
        pvf.PivotItems("(blank)").Visible = False
        pvf.PivotItems("").Visible = False
        Next pvf
    Next pvt
Next ws

End Sub

Sub Filters()

'ThisWorkbook.RefreshAll
Dim ws As Excel.Worksheet
Dim pvt As Excel.PivotTable
Dim pvi As PivotItem

For Each ws In ActiveWorkbook.Worksheets
    For Each pvt In ws.PivotTables
        For Each pvi In pvt.PivotFields("Агент").PivotItems
            If pvi.Name = "Петров" Then
            pvt.PivotFields("Агент").PivotItems(pvi).Visible = True   <---- Строка на которую ругается
            End If
        Next pvi
    Next pvt
Next ws

End Sub

Sub Check_OpenExcel()

Dim objExlApp As Object

Set objExlApp = CreateObject("Excel.Application")
objExlApp.Visible = True
Set objExlDoc = objExlApp.Workbooks.Open("G:\Папка\Test.xlsx")
objExlDoc.Application.Visible = True
Set objExlApp = Nothing

With objExlDoc.Worksheets("Sheet0")
.Range("A1").Select
.Range(Selection, Selection.End(xlToRight)).Select '<----- НА ЭТОЙ СТРОКЕ КОДА ВОЗНИКАЕТ ОШИБКА
.Range(Selection, Selection.End(xlDown)).Select
End With
Selection.Copy
Workbooks.Add
Worksheets("Лист1").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
ActiveWorkbook.SaveAs FileName:="G:\Папка\Test2.xlsx"
Set objExlDoc = Nothing
ActiveWorkbook.Close
    
End Sub