VBA Split Presentation and save title from slide

[John Wilson]

If the Titles are actually in Title Placeholders (ie real Titles)

Sub SplitCards()
Dim i As Integer
Dim osource As Presentation
Dim otarget As Presentation
Dim strName As String
'SAVE A COPY
ActivePresentation.SaveCopyAs (Environ("TEMP") & "\tempfile.pptx")
Set osource = Presentations.Open(Environ("TEMP") & "\tempfile.pptx")
For i = osource.Slides.Count To 1 Step -1
osource.Slides(i).Copy
Set otarget = Presentations.Add(msoTrue)
otarget.Slides.Paste
'FOLLOW DESIGN
otarget.Slides(1).Design = osource.Slides(i).Design
otarget.Slides(1).ColorScheme = osource.Slides(i).ColorScheme
strName = otarget.Slides(1).Shapes.Title.TextFrame.TextRange
osource.Slides(i).Delete
'SAVE THE ONE SLIDE PRES
otarget.SaveAs (Environ("USERPROFILE") & "\Desktop\" & strName & ".pptx")
otarget.Close
Set otarget = Nothing
Next i
osource.Close
'REMOVE THE TEMP FILE
Kill (Environ("TEMP") & "\tempfile.pptx")
Set osource = Nothing
End Sub