VBA Excel Activating back and forth between PPPresentation and XLWorkbook

Hi everyone

Im trying to navigate back and forth between an xl document and a ppt presentation via VBA (Excel). Here is what Ive tried so far:

Sub ActivatePresentation()

' PowerPoint
    Dim PPApp As PowerPoint.Application
    Dim PPPres As PowerPoint.Presentation
    Set PPApp = CreateObject("Powerpoint.Application")
    Set PPPres = PPApp.Presentations.Open("MyPath.pptm")
    PPApp.Visible = True
    
'Excel
    Dim XLControlSheet As Workbook
    Set XLControlSheet = ActiveWorkbook
    
    
'Navigate back and forth

    XLControlSheet.Activate
    PPPres.Activate
        
End Sub

Any suggestions?

many thanks!

Jon