Naming a tab on an imported spreadsheet

[Leesha]

Hi,
I'm using the code below to import data into a DB. The spreadsheet originally came with only on tab named "Data". Now the spreadsheet comes with 3 tabs and the "Data" tab is no longer the first tab in the spreadsheet. I took a shot a entering the name of the sheet in the code but it returns an error that says that the object "data" can't be found. I'm not sure what I am missing.

Thanks,
Leesha


Dim strFolder As String
Dim strFile As String


' Fixed folder path
strFolder = "C:\StoreID\Import\"
' Find filename
strFile = Dir(strFolder & "*.xlsx")
Do While strFile <> ""
If strFile = "" Then
MsgBox "No .xlsx file in folder!", vbExclamation
Exit Sub
End If
' Import VDC weekly sales spreadsheet
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, _
"tblImportTemp-VDC", strFolder & strFile, True, "Data"



strFile = Dir
Loop

[HansV]

Add an exclamation mark after the sheet name: use "Data!" instead of "Data"

[Leesha]

Thanks Hans! I appreciate you and your help,
Leesha