Rename Table Name to First Column Heading

I am importing different excel sheets into Access dB using a file dialog. The importing works fine however, I would like to rename the tables once they are imported to the name of the first column heading. Where exactly would I ad the name change at in this code?



#' Open the EXCEL file and read the worksheet names into a collection

Set colWorksheets = New Collection

Set objWorkbook = objExcel.Workbooks.Open(StrFileName, , blnReadOnly, , _

strPassword)

For lngCount = 1 To objWorkbook.Worksheets.Count

colWorksheets.Add objWorkbook.Worksheets(lngCount).Name



Next lngCount

' Close the EXCEL file without saving the file, and clean up the EXCEL objects

objWorkbook.Close False

Set objWorkbook = Nothing

If blnEXCEL = True Then objExcel.Quit

Set objExcel = Nothing

' Import the data from each worksheet into a separate table

For lngCount = colWorksheets.Count To 1 Step -1

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _

"tbl" & colWorksheets(lngCount), StrFileName, blnHasFieldNames, _

colWorksheets(lngCount) & "$"#

Rename Table Name to First Column Heading