VBA Powerpoint 2010 eroarea -2147188160

Am nevoie de afisarea/ascunderea succesiva u a 2 grafice suprapuse in powerpoint2010 in modul slide show.
Codul facut functioneaza cand rulez macroul direct din vba (in vizualizarea normal view graficele sunt afisate  si ascunse succesiv) .
Cand atasez macrocomanda la un buton nu lucreaza, da eroarea -2147188160
Am incercat o recomandare de pe pagina microsoft pentru remedierea erorii -2147188160 care propune  inserarea codului urmator inainte de apelarea Active Window
    If PowerPoint.Application.Version >= 9 Then
        PowerPoint.Application.Visible = msoTrue
    End If
Nu functioneaza si am sapat cateva ore sa gasesc explicatia dar fara succes
Are cineva idee ce nu e in regula?
Iata codul:
Sub ShowHiddeninSlide()
    ‘On Error GoTo errorcode
    Dim olh As Slide, oSh As Shape
    Dim slnr As Byte, cn3 As String, cn4 As String
    Dim v3 As Boolean, v4 As Boolean
        'slnr = Activewindow.View.Slide.SlideIndex
        cn3 = "Inhaltsplatzhalter 3"
        cn4 = "Inhaltsplatzhalter 4"
        Set olh = ActivePresentation.Slides(10)
        olh.Select
        nnn = olh.Name
        ActivePresentation.Slides(10).Shapes.SelectAll
        If olh.Shapes(cn3).Visible = msoTrue Then
        v3 = False
        v4 = True
        Else
        If v3 = False Then
        v3 = True
        v4 = False
        End If
        End If
        olh.Shapes(cn3).Visible = v3
        olh.Shapes(cn4).Visible = v4
End Sub

Am rezolvat problema, faceam o referire gresita a ferestrei active pentru modul slideshow.