Sub testing()

Dim xlApp As Excel.Application
Dim wk As Excel.Workbook
Dim sXlsTargetFile As String

sXlsTargetFile = "C:Documents and Settings
ussoDesktopVBA_TOOLSReporting_Bench_for_Access.xls"
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application") 'verifica se esiste un'istanza di excel aperta
    Select Case Err.Number
    Case 0 ' nessun errore
        On Error GoTo 0 ' disabilita controllo degli errori
        If xlApp Is Nothing Then Set xlApp = New Excel.Application ' No istanza di Excel
    Case 429
        On Error GoTo 0 ' disabilita controllo degli errori
        Set xlApp = New Excel.Application
    Case Else
        MsgBox Err.Number
        MsgBox Err.Description
        On Error GoTo 0 ' disabilita controllo degli errori
    End Select
    Err.Clear
    
        With xlApp
            
        Set wk = .Workbooks.Open(sXlsTargetFile)
            MsgBox wk.Name
            .Visible = True
            '.Run ("ModDbFunctions.PrepareSheetTCBAIntegrationLevel")
            wk.Sheets("TCBACrossRef").Select
            .Run ("ModDbFunctions.rangetester")
            'wk.Sheets("TCBACrossRef").Select
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, "TCBACrossRef", sXlsTargetFile, True, "ModDbFunction!sFullAddress"   ' "TCBACrossRef" 'comando di import!
            .DisplayAlerts = False
           ' wk.Close
            .DisplayAlerts = True
        End With
        xlApp.Quit
        Set xlApp = Nothing
    
End Sub

Sub RangeTester()
Dim iNoRowsTargetSheet As Integer

    iNoRowsTargetSheet = iRetrieveRowsNo("TCBACrossRef", 2, 2)
    Set rTarget = Range(Cells(1, 1), Cells(1 + iNoRowsTargetSheet, 2))
    sAddress = rTarget.Address
    MsgBox sAddress
    sFullAddress = "TCBACrossRef!" & sAddress
    MsgBox sFullAddress
End Sub