VBA quickly split excel files into different workbooks

1. Need to quickly split the different sheets in the workbook into different workbooks

Second, the code

  Sub spin-off worksheet ()

    Dim sh As Worksheet

    Dim MyBook As Workbook

    Set MyBook = ActiveWorkbook

    For Each sh In MyBook.Sheets

        sh.Copy
    
        ActiveWorkbook.SaveAs Filename: = MyBook.Path & "\" & sh.Name, FileFormat: = xlNormal 'Save workbook as EXCEL default format
    
        ActiveWorkbook.Close
    
        Next

    MsgBox "The file has been split up!"

    End Sub