I have a large number of sheets (120) in a single Excel workbook file. I can import each sheet individually into an Access table using the import wizard from Access. However, the task is very time consuming. I was wondering if there is a macro or code that can import all the worksheets from my workbook into individual tables in Access with a single command. Your help is highly appreciated. Thanks.

You could try it in Access VBA with something like: Sub DoExcel() Dim appExcel As Excel.Application Dim wb As Excel.Workbook Dim sh As Excel.Worksheet Dim strValue As String Dim intRow As Integer Dim intCol As Integer Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("YourTable") Set appExcel = CreateObject("Excel.Application") Set wb = appExcel.Workbooks.Open("blahblah.xls") For Each sh In wb.Sheets strValue = sh.Cells(intRow, intCol) rs.AddNew 'Do your stuff rs.Update Next rs.Close wb.Close appExcel.Quit End Sub Check http://www.dummies.com/WileyCDA/Dum... for adding the correct reference to the Excel object library. Good luck P.S. The VBA Code get's a little mixed up in this hml page.