PPT Master slide VBA help

[Ayla1427]

Hi, I am trying to create a macro that will re-insert master slides from a template from a location on the network, in case people delete them, I have the code below, it seems to work and run fine, but when you go into the master the slides aren’t added. I am not fully confident in vba so need a little help if possible

Thanks in advance

Sub CopyMasterSlidesFromNetwork()    ' Specify the path to the PowerPoint file on the network
    Dim sourceFilePath As String
    sourceFilePath = "\\Network\Path\To\Your\Source\File.pptx" ' Replace with the actual network path
    ' Open the source presentation
    Dim sourcePresentation As Presentation
    Set sourcePresentation = Presentations.Open(sourceFilePath)
    ' Copy master slides from the source presentation
    Dim slideIndex As Integer
    For slideIndex = 1 To sourcePresentation.Slides.Count
        sourcePresentation.Slides(slideIndex).CustomLayout.Copy
        ActivePresentation.Designs(1).SlideMaster.CustomLayouts.Paste
    Next slideIndex
    ' Close the source presentation without saving changes
    sourcePresentation.Close False
End Sub