Hi Slim,

here is basic code to open a "conversation" with Excel...

'~~~~~~~~~~~~~~~~~~~~~~~~~~
Function Excel_Conversation()

   On Error GoTo Proc_Err

   Dim xlApp As Excel.Application, _
      booLeaveOpen  As Boolean

   'if Excel is already open, use that instance
   booLeaveOpen = True

   'attempting to use something that is not available
   'will generate an error
   On Error Resume Next
   Set xlApp = GetObject(, "Excel.Application")
   On Error GoTo Proc_Err

   'If xlApp is defined, then we
   'already have a conversation
   If TypeName(xlApp) = "Nothing" Then
      booLeaveOpen = False
      'Excel was not open -- create a new instance
      Set xlApp = CreateObject("Excel.Application")
   End If

   'Do whatever you want

Proc_Exit:
   On Error Resume Next

   If TypeName(xlApp) <> "Nothing" Then
      xlApp.ActiveWorkbook.Close False
      If Not booLeaveOpen Then xlApp.Quit
      Set xlApp = Nothing
   End If

   Exit Function

Proc_Err:
   MsgBox Err.Description _
     , , "ERROR " & Err.Number & "   Excel_Conversation"
   'comment next line after debugged
   Stop:   Resume

   Resume Proc_Exit
End Function
'~~~~~~~~~~~~~~~~~~~~~~~~

in the
   'Do whatever you want
section...

once you have an object reference to Excel, you can open a workbook and
delete a sheet.  We can help you with this, but you can also figure it
out for yourself... turn on the Excel macro recorder and do it -- then
look at the code that was generated and note the important parts

then, translate the code to Access -- simply preface each Excel
statement with xlApp

Warm Regards,
Crystal
 *
     (:  have an awesome day  :)
  *
MVP Access
Remote Programming and Training
strive4peace2006 at yahoo.com
  *