'Example of how I access the native table in PowerPoint
Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes("Table1")

'I can get data from a cell by using, for example:
oPPTShape.Table.Cell(2, 1).Shape.TextFrame.TextRange.Text
'But I cannot select a range from this PowerPoint table

With OutMail

  .To = name_email
  'Add file
  .Attachments.Add ("C:... .pptx")
  .Subject = "Data"
  .Body = StrBody
  .HTMLBody = StrBody & RangetoHTML(rng)
  .SaveAs "C:... .msg", 5
  .Display  'Or use .Send

End With

Dim strNewPresPath As String
strNewPresPath = "C:... .pptx"

Set oPPTApp = CreateObject("PowerPoint.Application")
oPPTApp.Visible = msoTrue

Set oPPTFile = oPPTApp.Presentations.Open(strNewPresPath)
SlideNum = 1

Sheets("Open Tasks").Activate

Dim myStr As String
myStr = "Open"

Do
  oPPTFile.Slides(SlideNum).Select
  'Select PowerPoint shape with the name Table1
  Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes("Table1")
.
.
.