Why is this not working?
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Powerpoint Presentations", "*.ppt"
.FilterIndex = 1
.Title = "Please Select File to open"
If .Show = False Then Exit Sub
sfile = .SelectedItems(1)
End With
Thanks,
Barb Reinhardt
Andy Pope - 28 Feb 2007 14:28 GMT
Hi,
I what sense is it not working?
What version of ppt are you working with?
Cheers
Andy
> Why is this not working?
>
[quoted text clipped - 10 lines]
> Thanks,
> Barb Reinhardt

Signature
Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
John Wilson - 28 Feb 2007 14:41 GMT
Looks fine to me Barb. I take it you have a
Presentations.Open(sfile) somewhere else in the code and that you have
Declared sfile as a string

Signature
Amazing PPT Hints, Tips and Tutorials-http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk
> Why is this not working?
>
[quoted text clipped - 10 lines]
> Thanks,
> Barb Reinhardt