Dave thanks for the reply!
This is what I have so far

Sub Example2()
   Dim MyPath As String
   Dim FilesInPath As String
   Dim MyFiles() As String
   Dim SourceRcount As Long
   Dim Fnum As Long
   Dim mybook As Workbook
   Dim basebook As Workbook
   Dim sourceRange As Range
   Dim destrange As Range
   Dim rnum As Long
   Dim sfolder As String
   
   sfolder = ThisWorkbook.Path

   'Fill in the path\folder where the files are
   'MyPath = "C:\Data" or on a network :
   MyPath = sfolder
   MsgBox (MyPath)

   'Add a slash at the end if the user forget it
   If Right(MyPath, 1) <> "\" Then
       MyPath = MyPath & "\"
   End If

   'If there are no Excel files in the folder exit the sub
   FilesInPath = Dir(MyPath & "*.xls")
   MsgBox (FilesInPath)
   If FilesInPath = "" Then
       MsgBox "No files found"
       
       Exit Sub
   End If

   On Error GoTo CleanUp
   Application.ScreenUpdating = False
   Set basebook = ThisWorkbook
   'clear all cells on the first sheet
   basebook.Worksheets(1).Cells.Clear
   rnum = 1

   'Fill the array(myFiles)with the list of Excel files in the folder
   Fnum = 0
   Do While FilesInPath <> ""
   MsgBox (FilesInPath)
       'yymmdd.xls
       If LCase(Right(FilesInPath, 10)) Like "*######.xls" Then
           Fnum = Fnum + 1
           ReDim Preserve MyFiles(1 To Fnum)
           MyFiles(Fnum) = FilesInPath
       End If
       FilesInPath = Dir()
   Loop


   'Loop through all files in the array(myFiles)
   If Fnum > 0 Then
       MyFiles = SortArray(MyFiles)
       For Fnum = LBound(MyFiles) To UBound(MyFiles)
           Set mybook = Workbooks.Open(MyPath & MyFiles(Fnum))
           Set sourceRange = mybook.Worksheets(1).Range("g2:ae2")
           SourceRcount = sourceRange.Rows.Count
           Set destrange = basebook.Worksheets(1).Range("A" & rnum)

           ' This will add the workbook name in column D if you want
           basebook.Worksheets(1).Cells(rnum, "D").Value = mybook.Name

          ' sourceRange.Copy destrange
           ' Instead of this line you can use the code below to copy only
the Values

                       With sourceRange
                           Set destrange =
basebook.Worksheets(1).Cells(rnum, "A"). _
                            Resize(.Rows.Count, .Columns.Count)
                       End With
                       destrange.Value = sourceRange.Value

           rnum = rnum + SourceRcount
           mybook.Close savechanges:=False
       Next Fnum
   End If
CleanUp:
   Application.ScreenUpdating = True
End Sub
Function SortArray(myArr As Variant) As Variant
   Dim iCtr As Long
   Dim jCtr As Long
   Dim Temp As Variant
   
   For iCtr = LBound(myArr) To UBound(myArr) - 1
       For jCtr = iCtr + 1 To UBound(myArr)
           If LCase(Right(myArr(iCtr), 10)) _
                > LCase(Right(myArr(jCtr), 10)) Then
               Temp = myArr(iCtr)
               myArr(iCtr) = myArr(jCtr)
               myArr(jCtr) = Temp
           End If
       Next jCtr
   Next iCtr
End Function

It runs through the sort and then ends.  What am I missing?
Thanks!