Nome da tabela com espaço

Eu tenho um script para deletar o conteudo anterior de uma tabela, e fazer importação de outra que estava em excel.
Mas os nomes das minhas tabelas, por padrão, tem a referencia ' 3 Sabado ' - sendo o numero 3, um espaço, e a palavra Sabado. E quando tento alterar não funciona!!

Alguem pode me ajudar??


Option Compare Database

Private Sub SeuBotao_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
'apaga todos os registros da tabela
CurrentDb.Execute "DELETE * From '3 Sabado'"
blnHasFieldNames = True
strPath = "C:\" ' drive onde se situa o seu documento excel
strTable = "Sabado" 'nome da tabela no seu banco
strFile = Dir(strPath & "Sabado.xlsx") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
End Sub


Obrigada

opa amigo, coloque entre conchetes
[3 Sabado]

abraços

Pode parecer bobo, mas para quem ta aprendendo essas referencias fazem muita diferença.

Obrigada

Boa noite, e bem-vinda ao fórum
Mantenha o título para que foi criado: Resumir a dúvida.
Não ficou claro que tenha resolvido mas, em caso afirmativo, marque no botão "Resolvido"