Thank you for responsing to my problem.
I have been thinking when this problem started to come up and I am sure it was since last sunday. Then I realized I have been building in a commandbutto in the marcro so the user is able to adjust one or more cells of the table until he wishes to continue.

So I deleted the code for the commandbutton and my macro worked as before so the problem is made by the commandbutton. This code was:

Cells(lastrow + 2, 3).Select
With Selection
ActiveSheet.Buttons.Add(ActiveCell.Left, ActiveCell.Top, 120, 60).Select
Selection.OnAction = "PERSONAL.XLSB!macro_powerpoint_slide"
Selection.Characters.Text = "Powerpoint" & vbCrLf & "Presentatie"
With Selection.Characters(Start:=1, Length:=23).Font
.Name = "Calibri"
.FontStyle = "Standaard"
.Size = 16
End With
End With


Sub macro_zaterdag()

Dim pptApp As PowerPoint.Application
Dim pptPrs As PowerPoint.Presentation
Dim pptSld As PowerPoint.Slide
Dim pptshp As PowerPoint.Shape
Dim FSO As Object
Dim I As Integer

Set pptApp = CreateObject("Powerpoint.application")

'powerpoint zichtbaar maken
pptApp.Visible = True

'ophalen sponsors template en slide maken
Set pptPrs = pptApp.Presentations.Open("C:\VVVierpolders\automation\Templates\TV-sponsors template." & "potx")
Set pptSld = pptPrs.Slides(1)
Set pptshp = pptSld.Shapes(1)

'plakken excel-tabel in powerpoint slide
pptSld.Shapes.PasteSpecial(ppPasteOLEObject).Select

'centreren excel-tabel op slide
pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True

end sub

I am determined to work with a commandbutton as I described so maybe you can tell me what is wrong with the code for the commandbutton.

Hope to hear from you,

Rini