怎样实现任意选择工作薄进行汇总

cnfish

各位老大
请教一下：用VBA能实现这样的功能吗：
通过“打开”窗口，任意选择多个工作薄进行汇总，并将汇总结果生成一个新的工作薄
如果能，应该怎样写代码
谢谢

pureshadow

Sub text()
Dim mysht As Long
Dim mynum As Long
    For mysht = 1 To Sheets.Count
        mynum = Sheets(mysht).Range("a1") + mynum
    Next
    Sheets.Add
    ActiveSheet.Range("a1") = mynum
End Sub