Apply multiple slide master layouts to pages

[LibrarianBri]

Hello, would anyone be able to help me out with this quick question.
I have a slide master layout with several hundred layout pages.
Is there any quick way to apply slide layout 1 to page 1, layout 2 to page 2, etc?

[LibrarianBri]

Solved it.



Sub apply()

With ActivePresentation
Let x = 1
Do While x < 999
.Slides.AddSlide .Slides.Count + 1, .Designs(1).SlideMaster.CustomLayouts(x)
x = x + 1
Loop

End With
End Sub