Tables :: Browse For Excel File To Import Into Access Table

I want a user to click a button, have the file open dialog open, they select a spreadsheet, and then it imports into a table. The problem is the filename can be different every time. The table name will remain constant.

Here is the OnClick:

Code:
Private Sub Command8_Click()
On Error GoTo Err_ImportSpreadsheet_Click
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel2Xml, "Table1", "T_Staff.xls", "Yes"

Exit_ImportSpreadsheet_Click:
Exit Sub

Err_ImportSpreadsheet_Click:

Resume Exit_ImportSpreadsheet_Click
End Sub