A Test

Sub Do_The_Recon()
'
Dim x As Variant   
'Used to hold array of filenames
Dim i As Integer   
'Used with x for position in array
Dim J As Integer
Dim strFName As String
    
    strPath = "\\rgfs\inventory\hall\"
    
'strFName = ActiveWorkbook.Name
    x = GetFileList(strPath & "2010*.xls")
    iCol = 1
    J = 1
    Application.DisplayAlerts = False
   
    Select Case IsArray(x)
'Application.AlertBeforeOverwriting = False
        Case True 'files found
            For i = LBound(x) To UBound(x)
                Workbooks.Open FileName:=strPath & x(i)
                strFName = ActiveWorkbook.Name
' Detail code of process here
ActiveWorkbook.Save
                ActiveWorkbook.Close
            Next i
        Case False 'no files found
    End Select
    Beep
'    Application.Visible = True
End Sub