he is the info from the debug
Option Compare Database
Option Explicit
'Public Sub ImportExcelData()
'
'On Error GoTo IED_Error
'
'Dim MyDb As Database, rsIn As Recordset, rsOut As Recordset, strSource As String, intPos As Integer, intZ As Integer
'Dim strFullName As String, lngNID As Long
'...