sure no problem. Here it is:
[vba]
Dim strSheetName As Variant
Dim strFilePath As String
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim i As Integer
Dim connToUpdate As ADODB.Connection
Dim strSQL As String

filepath = "C:\Documents and Settings\mpearce\My Documents\merged recon files.xls"
'change strFilePath to filepath to your spreadsheet
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & strFilePath & ";" _
& "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

'array of all of your worksheet names
strSheetName = Array(DecoOpen, DecoClosed, NotInDeco, EligibilityNotInHospital, BillingNotInHospital, _
DecoOpen(2), DecoClosed(2), NotInDeco(2), EligibilityNotInHospital(2), _
BillingNotInHospital(2))
'creates a connection to your database
Set connToUpdate = CurrentProject.Connection

'this loop will go through each worksheet name in the array
For i = LBound(strSheetName) To UBound(strSheetName)
Set rst = New ADODB.Recordset
'create a recordset for the currently selected worksheet
rst.Open "SELECT * FROM [" & strSheetName(i) & "];", conn, adOpenStatic, adLockOptimistic
rst.MoveFirst '<<<explicitly move to the first record in the recordset

'this loop will update your table one record at a time
'the execute method is one of the fastest ways to update your table
Do Until rst.EOF '<<<Loop runs until end of recordset is reached
'this is the SQL Update statement you need to adjust
strSQL = "INSERT INTO " & strSheetName(i) & "(**Fields to update**) " _
& "'VALUES (rst![FieldName].Value & " ')"

'run the SQL statement
connToUpdate.Execute strSQL
rst.MoveNext '<<<Move to next record
Loop

rst.Close
Next

connToUpdate.Close
rst.Close
conn.Close
Set connToUpdate = Nothing
Set rst = Nothing
Set conn = Nothing
[/vba]