Office: ActiveCell funktioniert nicht

Hallo Zusammen,
bin gerade dabei ein Makro zu schreiben und komme an einer Stelle nicht weiter.
Hier ist die Stelle aus meinem Code wo mein Compiler meckert

With XLApp
.Workbooks.Open PfadB, , True
.ActiveWorkbook.sheets("backlog_SAP_SAIL_EMEA").PivotTables("SAIL_PIVOT").PivotFields("GBU").CurrentPage = "IPG"

With .ActiveSheet.PivotTables("SAIL_PIVOT").PivotFields("Region")

.PivotItems("CEE").Visible = False
.PivotItems("France").Visible = False
.PivotItems("GWE").Visible = False
.PivotItems("Iberia").Visible = False
.PivotItems("Italy").Visible = False
.PivotItems("MEMA").Visible = False
.PivotItems("UK_Region").Visible = False
End With
With .ActiveSheet
MsgBox (.Range("H24").Value)
.Range("H24").Activate
Do Until .ActiveCell.Value = ""
If .ActiveCell.Value = "Grand Total" Then
.ActiveCell.Offset(1, 0).select
.selection.ShowDetail = True
Exit Do
End If
.ActiveCell.Offset(0, 1).Activate
Loop
End With

Das Programm läuft bis zu dem Schleifenkopf.
Wäre für jede Hilfe dankbar.
Viele Grüße,
Dennis

 

Die Fehlermeldung hatte ich ganz vergessen
"Object doesn`t support this property or method