1. you has ".xlxs" and it should be ".xlsx"

2. This loops through the worksheets and creates a new workbook for each worksheet, save the WB as the sheet name

3. I added a automatic delete if the WB exists

4. I added a date stamp to the WB name (just because I like to) but you can delete that if you don't want

You'll have to integrate this, changing some things, into your over all project


Option Explicit
Sub Macro1()
    Dim ws As Worksheet
    Dim wb1 As Workbook, wb2 As Workbook
    Dim sName As String
    
    Application.ScreenUpdating = False
    
    Set wb1 = ThisWorkbook
    For Each ws In wb1.Worksheets
        ws.Copy
        Set wb2 = ActiveWorkbook
        sName = wb1.Path & Application.PathSeparator & ActiveSheet.Name & Format(Date, "-yyyy-mm-dd") & ".xlsx"
        
        On Error Resume Next
        Kill sName
        On Error GoTo 0
        
        wb2.SaveAs sName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        wb2.Close
    Next
    Application.ScreenUpdating = True
End Sub