帮忙改一下汇总同目录下非空工作表代码

汇总同目录下非空工作表代码，此代码在2010中不能用，请各位师傅给改一下。谢谢！！！

Private Sub CommandButton1_Click()
    Dim Twb As Workbook, Wb As Workbook
    Dim rng As Range
    Dim s
   
    Application.ScreenUpdating = False
    Set Twb = ThisWorkbook
   
    Cells.ClearContents '清除当前表的内容
    With Application.FileSearch '查找
        .LookIn = Twb.Path '范围为此目录下
        .Filename = "*.xls" '查找所有的xls文件
        .Execute msoSortByFileName '执行查找过程，并且将查询结果按文件名排序
        
        For Each s In .FoundFiles '在每一个查找到的结果里
            If s <> Twb.FullName Then '假如它不是当前工作簿
                Set Wb = Workbooks.Open(s) '打开它
                Set rng = Range("a65536").End(xlUp).Offset(1, 0) '设置变量rng为最后一行的下一行
                Wb.Sheets(1).UsedRange.Copy rng '复制新打开的工作簿的第一个工作表的已用区域到rng
                Wb.Close False ' 不保存就关闭这个打开的工作簿
            End If
        Next
    End With
   
    Application.ScreenUpdating = True
End Sub

FileSearch 应是这个不能用。。。