File Picker Question

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
Hi,

I what sense is it not working?
What version of ppt are you working with?

Cheers
Andy
 
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
 
Back
Top