Excel: Split Each Excel Sheet Into a Separate File

Was trying to find an automated way of saving all my different Excel Sheets into a single separate file. Office scripts was not able to do it so end up having to use VBA coding. Press ALT + F11 Copy and Paste VBA codes to Module Save As file type *.xlsm (macro workbook) VBA code [ ]