Dear Gary,

Thank you very very very .......................... MUCH. The UPDATE
statement did the magic. Thanks so much GARY!!!

Your question as to why the ALTER TABLE statement is within the loop. This
is because it has to create two columns after it has transfered the data from
excel to access. Although it looks as if it may create two each time it
loops, this does not occur because the names of the columns are the same. Yes
agreed it is not a good idea to put it within the loop.

Thanks again.
Gokop

Dear Gary,

Thank you very much again. Please I want to replace
strPath = "C:\Documents and Settings\a99858\AirTravelBudget\" with

strPath = BrowseFolder("Select Folder") to make it generic. The problem is
that it does not give any error, but nothing happens, is no folder is
activated sort of when I choose a folder.

See the codes below:
'************** Code Start **************
'This code was originally written by Terry Kreft.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code courtesy of
'Terry Kreft

Private Type BROWSEINFO
 hOwner As Long
 pidlRoot As Long
 pszDisplayName As String
 lpszTitle As String
 ulFlags As Long
 lpfn As Long
 lParam As Long
 iImage As Long
End Type

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
           "SHGetPathFromIDListA" (ByVal pidl As Long, _
           ByVal pszPath As String) As Long
           
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
           "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
           As Long
           
Private Const BIF_RETURNONLYFSDIRS = &H1
Public Function BrowseFolder(szDialogTitle As String) As String
 Dim X As Long, bi As BROWSEINFO, dwIList As Long
 Dim szPath As String, wPos As Integer
 
   With bi
       .hOwner = hWndAccessApp
       .lpszTitle = szDialogTitle
       .ulFlags = BIF_RETURNONLYFSDIRS
   End With
   
   dwIList = SHBrowseForFolder(bi)
   szPath = Space$(512)
   X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
   
   If X Then
       wPos = InStr(szPath, Chr(0))
       BrowseFolder = Left$(szPath, wPos - 1)
   Else
       BrowseFolder = vbNullString
   End If
End Function
'*********** Code End *****************

Private Sub Command2_Click()
'Dim strSheet() As String
'xlsSheetLoop (strSheet())
Dim xlApp As Excel.Application
Dim xlWS As Excel.Worksheet
Dim xlWB As Excel.Workbook
Dim i As Integer
Dim strFileName As String
Dim strOpenFile As String
Dim strNameOnly As String

Dim wkShName As String
Dim objFSO As Object
Dim objFile As Object
Dim strFolderPath As String
Dim strPath As String
Dim strPathBrowser As String
Dim bookName As String
'Dim fieldValue As Field
Dim rangeValue As Range
Dim strFileNameValue As String
Dim workBookName As Names
Dim strFullPath As String
Dim j As Integer
Dim strActiveBook As Object
Dim strDefaultPath As String

Dim strSQL As String

Set xlApp = New Excel.Application
On Error Resume Next
strDefaultPath = BrowseFolder("Select Folder")
strPath = strDefaultPath
If strPath = vbNullString Then
MsgBox "No Folder Selected"
Else
strFileName = Dir(strPath & "*.xls")
strFullPath = strPath & strFileName
Do While Len(strFileName) > 0
strFullPath = strPath & strFileName
strFileNameValue = strFileName
strNameOnly = Left(strFileName, Len(strFileName) - 4)
xlApp.Workbooks.Open (strFullPath)
xlApp.Workbooks.Open (strFullPath)

For j = 1 To xlApp.Worksheets.Count

Set xlWS = xlApp.ActiveWorkbook.Worksheets(j)
wkShName = xlWS.Name

DoCmd.TransferSpreadsheet acImport, , "AirTravel_Table", strFullPath, -1,
wkShName & "!A15:O1016"

DoCmd.RunSQL "ALTER TABLE AirTravel_Table ADD COLUMN CostCentreCode CHAR,  
GLCode CHAR", -1

strSQL = "UPDATE AirTravel_Table SET CostCentreCode = '" & strNameOnly & "',
GLCode = '" & wkShName & "' WHERE CostCentreCode  IS NULL"
CurrentDb.Execute strSQL, dbFailOnError
Next j

strFileName = Dir()
Loop
End If
End Sub

Any help is appreciated
Regards
Gokop