Excel2016において、複数のExcelブックを自動で1つのExcelブックにまとめる方法について

私は複数ブックをまとめたことが無く難しそうなので
ネットを探し回ったら下記二つを見つけました。
自分でも試してみたらうまく動きました。(Windows8.1+Excel2013で)
（①も②も一部修正をしましたが）
--------------------------------------------------------------------------------

①
CTRL+クリックやSHIFT+クリックで複数ブックを選択してからまとめるなら
http://dukicco.hatenadiary.jp/entry/2015/05/28/071424
【複数のブックをひとつのブックにまとめる】【エクセル2013,VBA】 より
'-------------------------------------------------------------------------------

'-------------------------------------------------------------------------------------

②
同一フォルダにあるブック全てをまとめるなら
https://qiita.com/aki1275/items/19ebe6febb97565f4502
「VBAマクロでExcel複数ファイルを１つのファイルにまとめるやり方とTips」より
'-------------------------------------------------------------------------------------
Sub consolid()
    'このブックと同じフォルダの全ブックをまとめます
    Dim mb As Workbook
    Dim wb As Workbook
    Dim myfdr As String
    Dim fname As String
    Dim n As Long

    Application.ScreenUpdating = False
    Set mb = ThisWorkbook
    myfdr = ThisWorkbook.Path
    fname = Dir(myfdr & "\*.xls*")
    Do Until fname = Empty
        If fname <> mb.Name Then
           Set wb = Workbooks.Open(myfdr & "\" & fname)
           wb.Worksheets.Copy After:=mb.Sheets(mb.Sheets.Count)
           wb.Close
           n = n + 1
        End If
        fname = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox n & " object(s) is(are) copied."
End Sub
'--------------------------------------------------------------------------------------