Identify characters and split into different sheets

lnjohnson 

It seems that the code provided is not correctly splitting the cells into different sheets based on the first three characters.

The updated code below should split the cells into different sheets based on the first three characters:

Sub SplitCellsToSheets()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim cell As Range
    Dim firstThreeChars As String
    Dim lastRow As Long
    
    ' Set the source sheet
    Set sourceSheet = ThisWorkbook.Sheets("ABC") ' Replace "Sheet1" with your source sheet name
    
    ' Set the source range
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "F").End(xlUp).Row
    Set sourceRange = sourceSheet.Range("F2:F" & lastRow) ' Assuming the data is in column F
    
    ' Loop through each cell in the source range
    For Each cell In sourceRange
        ' Get the first three characters of the cell value
        firstThreeChars = Left(cell.Value, 3)
        
        ' Check if a sheet with the first three characters exists, create one if it doesn't
        On Error Resume Next
        Set targetSheet = ThisWorkbook.Sheets(firstThreeChars)
        On Error GoTo 0
        If targetSheet Is Nothing Then
            Set targetSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
            targetSheet.Name = firstThreeChars
        End If
        
        ' Copy the cell value to the target sheet
        targetSheet.Cells(targetSheet.Cells(targetSheet.Rows.Count, "F").End(xlUp).Row + 1, "F").Value = cell.Value
    Next cell
End Sub

Make sure to adjust the following parts of the code to match your specific workbook:

• Set sourceSheet = ThisWorkbook.Sheets("ABC"): Replace "ABC" with the name of your source sheet.
• Set sourceRange = sourceSheet.Range("F2:F" & lastRow): Adjust the range to match the column and row range of your source data.

After updating the code, run the SplitCellsToSheets macro, and it should split the cells into different sheets based on the first three characters. Each sheet will be named after the corresponding three characters, and the cells will be copied to their respective sheets.