How to Add slide vba powerpoint | How to Delete All Slide Power point

How to Add slide vba powerpoint
Below code:-
---------------------------------------------------------------------------
Sub addppt()
Dim objPresentaion As Presentation
Set objPresentaion = ActivePresentation

Call objPresentaion.Slides.Add(1, PpSlideLayout.ppLayoutBlank)
End Sub

---------------------------------------------------------------

How to Delete All Slide Power point
Below code:-
------------------------------------------------
Sub SlideMasterCleanup()

Dim i As Integer

Dim objPresentaion As Presentation
Set objPresentaion = ActivePresentation

For i = 1 To objPresentaion.Slides.Count

        objPresentaion.Slides.Item(1).Delete
        Next i
       

End Sub

------------------------------------------------------------