Sub SplitDataIntoDifferentFiles()
    Dim ws As Worksheet
    Dim LastRow As Long, i As Long, FileRow As Long
    Dim NewBook As Workbook
    Dim UniqueValues As Collection
    Dim Value As Variant
    Dim CellValue As String
    Dim FileName As String
    Dim PathSeparator As String
    
    ' Correctly reference the application's path separator
    PathSeparator = Application.PathSeparator
    
    ' Ensure the workbook contains the "Full list" sheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("Full list")
    On Error GoTo 0
    If ws Is Nothing Then
        MsgBox "Sheet 'Full list' not found!", vbCritical
        Exit Sub
    End If
    
    LastRow = ws.Cells(ws.Rows.Count, "S").End(xlUp).Row
    
    ' Initialize the collection to store unique values
    Set UniqueValues = New Collection
    
    On Error Resume Next
    For i = 2 To LastRow
        CellValue = Trim(ws.Cells(i, "S").Value)
        If CellValue <> "" Then
            ' Attempt to add each unique value to the collection
            UniqueValues.Add CellValue, CStr(CellValue)
        End If
    Next i
    On Error GoTo 0
    
    ' Iterate through each unique value found in column S
    For Each Value In UniqueValues
        Set NewBook = Workbooks.Add
        With NewBook
            ' Copy the header from the original sheet
            ws.Rows(1).Copy Destination:=.Sheets(1).Rows(1)
            FileRow = 2
            
            ' Copy rows corresponding to the current unique value
            For i = 2 To LastRow
                If ws.Cells(i, "S").Value = Value Then
                    ws.Rows(i).Copy Destination:=.Sheets(1).Rows(FileRow)
                    FileRow = FileRow + 1
                End If
            Next i
            
            ' Sanitize the filename
            FileName = Value
            FileName = Replace(FileName, "/", "-")
            FileName = Replace(FileName, "\", "-")
            FileName = Replace(FileName, ":", "-")
            FileName = Replace(FileName, "*", "-")
            FileName = Replace(FileName, "?", "-")
            FileName = Replace(FileName, """", "-")
            FileName = Replace(FileName, "<", "-")
            FileName = Replace(FileName, ">", "-")
            FileName = Replace(FileName, "|", "-")
            
            ' Construct the file path using the system's path separator
            FileName = ThisWorkbook.Path & PathSeparator & FileName & ".xlsx"
            
            ' Attempt to save the new workbook
            On Error Resume Next
            .SaveAs Filename:=FileName
            If Err.Number <> 0 Then
                MsgBox "Failed to save " & FileName, vbCritical
                Err.Clear
            End If
            On Error GoTo 0
            
            ' Close the new workbook without saving changes (since it's already saved)
            .Close SaveChanges:=False
        End With
    Next Value
End Sub