Hello everyone. Hope you are well. I have pieced together the following code but I need to include the possibility that an excel file type may be selected. Any guidance appreciated.

Sub DeleteTypesOfFiles()
'Kilroy
Dim strFilename As String
Dim strDocName As String
Dim strPath As String
Dim oDoc As Document
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)

With fDialog
    .Title = "Select folder and click OK"
    .AllowMultiSelect = False
    .InitialView = msoFileDialogViewList
    If .Show <> -1 Then
        Exit Sub
    End If
    strPath = fDialog.SelectedItems.Item(1)
    If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
End With
If Documents.Count > 0 Then
    Documents.Close SaveChanges:=wdPromptToSaveChanges
End If
If Left(strPath, 1) = Chr(34) Then
    strPath = Mid(strPath, 2, Len(strPath) - 2)
End If
strFilename = Dir$(strPath & InputBox("File type? aterisk.type"))
While Len(strFilename) <> 0
Set oDoc = Documents.Open(strPath & strFilename)
     MyFile = ActiveDocument.path & "\" & ActiveDocument.Name
     ActiveDocument.Close (wdDoNotSaveChanges)
     Kill MyFile
     strFilename = Dir$()
Wend
End Sub