method range of object global failed при получении диапазона ячеек из powerpoint

Dim globall As Variant
Dim segodnyadata As Variant
 
Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
 If SSW.View.CurrentShowPosition = 6 Then
 proverka
 End If
 End Sub
 
Sub proverka()
If Date <> segodnyadata Then ExcelAp
End Sub
 
Sub ExcelAp()
segodnyadata = Date
Dim objXls As Object
Set objXls = CreateObject("Excel.Application")
objXls.Workbooks.Open "C:\Users\user\Desktop\ÒÅËÅÂÈÇÎÐ\Êíèãà1.xlsx"
objXls.Application.Visible = False
 
Dim a() As Variant: a = Range("A2:B1000")
Dim i As Long
 
 
For i = LBound(a) To UBound(a)
 If Month(a(i, 2)) = Month(Date) And Day(a(i, 2)) = Day(Date) Then globall = vbNewLine & a(i, 1) + globall & vbNewLine
Next
Zapis
objXls.Workbooks.Close
End Sub
 
Sub Zapis()
ActivePresentation.Slides(6).Shapes("TextBox 101").TextFrame.TextRange.Text = globall
ActivePresentation.Slides(6).Shapes("TextBox 11").TextFrame.TextRange.Text = "Ïîçäðàâëÿåì ñ äíåì ðîæäåíèÿ!" & vbNewLine & Date
ActivePresentation.Slides(6).Shapes("TextBox 101").Width = 2600
ActivePresentation.Slides(6).Shapes("TextBox 101").Height = 1050
ActivePresentation.Slides(6).Shapes("TextBox 11").Width = 2600
ActivePresentation.Slides(6).Shapes("TextBox 11").Height = 200
 
End Sub