Split .xlsm workbook into multiple xlxs. workbooks

I create a workbook every month with 8-10 tabs, and I need each tab to be its own workbook. I found code here (posted below) that works except it would be great if the new workbooks were xlxs instead of macro-enabled xlsm. Is there any way to add that to the code? Thank you

Sub SplitSheets()
    Dim W As Worksheet
    
    On Error GoTo Err_SplitSheets
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each W In Worksheets
        W.SaveAs ActiveWorkbook.Path & "/" & W.Name
        W.Delete
    Next W

Err_SplitSheets:
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

hi, thelenw, try to replace this line:

W.SaveAs ActiveWorkbook.Path & "/" & W.Name

with this:

W.SaveAs ActiveWorkbook.Path & "/" & W.Name, 51