I would like to add the following conditions to the code below. Value entered must always be exactly three letters. If the value is less than three, a pop up warns that value must be three letters without numbers or symbols, and if the value is less than three letters the cell is cleared. Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    
    ’ Specify the range of column B where the data validation is applied
    Set rng = Range(“B2:B” & Me.Cells(Me.Rows.Count, “B”).End(xlUp).Row)
    
    ’ Check if the changes were made in the target range
    If Not Intersect(Target, rng) Is Nothing Then
        Application.EnableEvents = False ’ Disable events to prevent recursive triggering
        
        For Each cell In Intersect(Target, rng)
            ’ Convert entered value to uppercase
            cell.Value = UCase(cell.Value)
            
            ’ Remove numbers and symbols from the value
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “0”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “1”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “2”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “3”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “4”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “5”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “6”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “7”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “8”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “9”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “!”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “@”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “#”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “$”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “%”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “^”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “&”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, "“, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “(”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “)”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “-”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “_”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “=”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “+”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “[”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “{”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “]”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “}”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “|”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “;”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “:”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “'”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “””", “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “,”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “<”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “.”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “>”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “/”, “”)
            cell.Value = Application.WorksheetFunction.Substitute(cell.Value, “?”, “”)
            
            ’ Check if the modified value already exists in column B
            If Application.WorksheetFunction.CountIf(rng, cell.Value) > 1 Then
                cell.ClearContents
                MsgBox “Duplicates are not allowed in column B.”, vbCritical, “Duplicate Value”
                cell.Select
            End If
        Next cell
        
        Application.EnableEvents = True ’ Re-enable events
    End If
End Sub