Takže je to veľmi jednoduché:
Jedná sa o osobný zošit makier, ktorý je globálny a do neho si nasáčkuješ všetky makrá, ktoré chceš mať stále poruke.

Nasledujúci kód:

Sub SheetsToFiles()
    On Error GoTo Chyba
    Application.ScreenUpdating = False
    Zdroj = ActiveWorkbook.Name
    Cesta = ActiveWorkbook.Path & "\"
    For i = 1 To ActiveWorkbook.Sheets.Count
        Meno = Sheets(i).Name & ".xlsx"
        Sheets(i).Copy
        ActiveWorkbook.SaveAs Filename:=Cesta & Meno
        ActiveWindow.Close
        Workbooks(Zdroj).Activate
    Next i
    Application.ScreenUpdating = True
    MsgBox "Vytvorenie samostatných súborov z hárkov súboru " & Zdroj & " bolo úspešne ukončené." & Chr(13) & "Nové súbory sú uložené v zložke " & Cesta, vbInformation, "Oznam"
    Exit Sub
Chyba:
    MsgBox "Vyskytla sa neočakávaná chyba", vbCritical, "Chyba"
End Sub

si nakopíruj do Module1 osobného zošita makier PERSONAL.XLSB (viď priložený obrázok). Ten sa otvára pri každom spustení Excelu. Zošit s osobnými makrami ostáva neviditeľný ale jeho makrá sú k dispozícii.

Potom si otvoríš zošit (nesmie byť nový, musí ísť o už existujúci súbor) a "nad ním" si spustíš makro (karta Vývojár- zobraziť makrá) SheetsToFiles.

Tadááááá