Intégrer un message si ppt n'est pas ouvert

Bonjour à tous !
Je débute en VBA, d'ailleurs je ne fais qu'adapter des codes existants (je ne développe pour ainsi dire jamais moi même). Du coup, je rencontre le problème suivant :
J'ai une macro qui fonctionne, qui extrait des éléments de mon fichier excel et crée un powerpoint avec. Elle ne fonctionne que si l'application powerpoint est ouverte sur l'ordinateur.
Je voudrais que, si l'application n'est pas ouverte, un message type MsgBox soit créé pour informer l'utilisateur.

J'ai essayé avec If [mavariable] is nothing then mais ça ne marche pas.
Des idées ?

Ci dessous ma macro

    Dim oPowerpoint As Object
    Set oPowerpoint = CreateObject("Powerpoint.application")
        
    Dim oDiaporama As Object
    Set oDiaporama = oPowerpoint.Presentations.Add
       
    idDiapo = 1
        
    For Each plage In Split(plages, "-")
        Dim oDiapositive As Object
        Set oDiapositive = oDiaporama.Slides.Add(Index:=idDiapo, Layout:=ppLayoutBlank)
  
        ActiveSheet.Range(plage).Copy
        Dim oTest As Object
        Set oTest = oDiaporama.Slides(idDiapo).Shapes.PasteSpecial(DataType:=ppPasteEnhancedMetafile)
        idDiapo = idDiapo + 1
 
    With oDiaporama.PageSetup
    oTest.Left = (.SlideWidth \ 2) - (oTest.Width \ 2)
    oTest.Top = (.SlideHeight \ 2) - (oTest.Height \ 2)
        End With
       Next
End Sub

Merci d'avance !!