I got it working thanks..
Sub singles()
Dim i As Integer
Dim osource As Presentation
Dim otarget As Presentation
'make a temp copy
ActivePresentation.SaveCopyAs (Environ("TEMP") _
& "\tempfile.ppt")
Set osource = Presentations.Open(Environ("TEMP") _
& "\tempfile.ppt")
For i = osource.Slides.Count To 1 Step -1
osource.Slides(i).Cut
Set otarget = Presentations.Add(msoTrue)
otarget.Slides.Paste
otarget.SaveAs (Environ("USERPROFILE") & "\Desktop\test\" & ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Text)
otarget.Close
Set otarget = Nothing
Next
osource.Close
'remove temp copy
Kill (Environ("TEMP") & "\tempfile.ppt")
Set osource = Nothing
End Sub
Submitted via EggHeadCafe
Stock Quotes via jQuery-enabled WCF Service, JSON, and jQuery Templates
http://www.eggheadcafe.com/tutorial...ed-wcf-service-json-and-jquery-templates.aspx