[RESOLVED] Power Point Profile

[cssriraman]

Hi,

Here is the code usinge File dialog:

Sub ShowFileDialog()
    Dim dlgOpen As FileDialog
    Dim i As Long
    Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen)
    With dlgOpen
        .AllowMultiSelect = True
        If .Show = -1 Then
        'if the user press the Open button
            .Execute
        'Once the file is open then run your macros
        '. . . . . . . . . . . . . . . .
        '. . . . . . . . . . . . . . . .
        '. . . . . . . . . . . . . . . .
        'Now you close the presentation.
            ActiveWindow.Close
        End If
    End With
End Sub

I hope this helps.