VBA Code to show two different file types

[Mr2017]

Hi

I'd like to run code which opens a folder and only shows two specific file types (binary and xlsx files).

I've got the code below, but it only shows xlsx files when run.

Does anyone know why binary files are not shown, as well?

TIA

Sub BinaryOrXls()


 Dim fd As Office.FileDialog


 Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
With fd


  fd.InitialFileName = ThisWorkbook.Path
 


   .Filters.Clear
   .Filters.Add "Xlsx", "*.xlsx"
   .Filters.Add "Xlsb", "*.xlsb"




   If .Show = True Then
     txtFileName = .SelectedItems(1)
     Label1.Caption = txtFileName
   End If
End With




End Sub

 

[James006]

Hi,

Have you tested

.Filters.Add "Excel Files", "*.xlsx;*.xlsb"

Hope this will help

 

[Mr2017]

I hadn't but that works!

Awesome!!

Thanks for your help, James006.

 

[James006]

You are welcome