I think I did it
Private Sub Command8_Click()
Dim filepath As String
Dim sSheetName As String
filepath = "S:\Allfiles\SUE'S STUFF\WORKING DESKTOP\2021 WESTLAND\ACCESSORIES\2021\2021 ACCESSORES .COM PRICING.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "BOM EXPORT", filepath...