[Resolvido]Erro em macro

Boa noite

tenho a seguinte macro que pretendo que copie as folhas de vários excel para as tabelas com o mesmo nome no acess, está a dar erro nesta linha
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, True, sh.Name & "!"
não consigo perceber porquê, podem ajudar sff
Eu testi de varias formas e consegui importar especificando o caminho completo do excel a importar com o respectivo nome, mas quando uso as variáveis não importa.

Código:

Private Sub Comando0_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = CurrentProject.Path
strFile = Dir(strPath & "*.xls")
Do While Len(strFile) > 0
strPathFile = strPath & strFile
Set appExcel = CreateObject("Excel.Application")
Set wb = appExcel.Workbooks.Open(strPathFile)
For Each sh In wb.Sheets
strTable = sh.Name
Debug.Print sh.Name
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, True, sh.Name & "!"
Next
wb.Close
appExcel.Quit
strFile = Dir()
Loop
End Sub

Boa tarde,
Está a recolher o nome da folha mas depois acrescenta ponto de exclamação, o que deixa de ser nome existente de folha
sh.Name & "!"

Resolvido
Obrigado