to show both .xls and .xlsx files while opening

[retaliator]

I have created a macro that opens other microsoft excel spreadsheet files. I want that when the user browse for the open file then the window that opens shud display both .xls and xlsx files at once. the code i ve used is below:

Dim Finfo As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As Variant
' Set up list of file filters
Finfo = "Workbook (*.xls),*.xls," & "Office 2007 Excel Workbook (*.xlsx),*.xlsx,"
' Display *.* by default
FilterIndex = 1
' Set the dialog box caption
Title = "Select a File to Import"
' Get the filename
FileName = Application.GetOpenFilename(Finfo, _
FilterIndex, Title)
' Handle return info from dialog box
If FileName = False Then
MsgBox "No file was selected."
Else
'MsgBox "You selected " & FileName
' opens an the excel file at the location: FileName
Workbooks.Open (FileName)

 

[RodneyD]

What are you actually doing with fName?

I am allowing a user to enter a drawing then having that drawing that is either .XLS or .XLSX to be opened and saved as a PDF in another location.
But I think I may have answered my own question. I changed the .XLS to .XL?? and that opens either file type.
I need this because there are older files in .xls and newer ones in .xlsx