I have saved the custom Template to Blank.potx and it does open the PowerPoint with the respected layout/office theme. However, when I run the macro, the PowerPoint is opened in 'normal layout'
--> It is blank for some reason (excl. the tables/graphs ofcourse).

I have also tried to use the abovementioned code, but I have some troubles with it. It keeps saying "ActiveX component can't create object" even though I'm referring to the right path.

Sub PPT()
     
    Dim iName As Long
    Dim rName As Range
    Dim nRange As Long
    Dim dSlideCenter As Double
    Dim pptApp As PowerPoint.Application
    Dim pptPre As PowerPoint.Presentation
    Dim pptSld As PowerPoint.Slide
    Dim objSheet As Worksheet
    Dim oshpR As PowerPoint.ShapeRange
     
    Set pptApp = CreateObject("PowerPoint.Application")
    Set pptPre = pptApp.Presentations.Add
    
     
     ' loop the sheets
    For Each objSheet In ActiveWorkbook.Worksheets
         
         'Create new slide for the data
        Set pptSld = pptPre.Slides.Add(pptPre.Slides.Count + 1, ppLayoutBlank)
        
        ActivePresentation.SlideMaster.Theme.ThemeColorScheme.Load ("C:\Users\NE70090\AppData\Roaming\Microsoft\Templates")
        
        If WorksheetFunction.Count(objSheet.UsedRange) > 0 Then
             ' Data in sheet so copy used range(s)
Many thanks as always.