Adding to my question, please let me know if I need to start a new thread but I feel this relates. I am now trying to get the code to move to the next slide now. The code below works but I am struggling to incorporate it at the end of the complete sub (Shown in reply #6). Any input?

Dim rng As RangeDim PowerPointApp As Object
Dim myPresentation As Object
Dim mySlide As Slide
Dim myShape As Object


'Copy Range from Excel
  Set rng = Selection
  rng.Copy


'Create an Instance of PowerPoint
  On Error Resume Next
    
    'Is PowerPoint already opened?
      Set PowerPointApp = GetObject(class:="PowerPoint.Application")
    
    'Clear the error between errors
      Err.Clear


    'If PowerPoint is not already open then open PowerPoint
      If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
    
    'Handle if the PowerPoint Application is not found
      If Err.Number = 429 Then
        MsgBox "PowerPoint could not be found, aborting."
        Exit Sub
      End If


  On Error GoTo 0


  Application.ScreenUpdating = False
  
  Set myPresentation = PowerPointApp.ActivePresentation
  Set mySlide = PowerPointApp.ActiveWindow.Selection.SlideRange(1)

  
  a = mySlide.SlideIndex
  a = a + 1
  myPresentation.Slides(a).SelectEnd Sub