想請問
我有寫一個巨集
多excel檔 單sheet 移動複製 到同一個 excel 內

請問 如何改成

多個 excel檔 多個sheet 移動複製到同一個excel

謝謝

Sub openfile()
'
' openfile Macro
'      
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Value, _
                TextToDisplay:=ActiveCell.Value
            Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
            Sheets(ActiveSheet.Name).Select
            Sheets(ActiveSheet.Name).Copy Before:=Workbooks("ALL.xlsm").Sheets(1)
            Sheets("ALL").Select
            Windows(ActiveCell.Value).Activate
            ActiveWindow.Close
            ActiveCell.Offset(1, 0).Range("A1").Select


End Sub