Hi all

I have this code which is working fine but needs adjusting to take into account recent changes.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim cell    As Range

    Application.EnableEvents = False
    
    Select Case Sh.CodeName
        Case "Sheet4"
            For Each cell In Target.Cells
                Select Case cell.Column
                    Case 3, 4, 6, 8, 9, 13, 15, 16
                        cell.Value = StrConv(cell.Text, vbProperCase)
                    Case 10, 17
                        cell.Value = StrConv(cell.Text, vbUpperCase)
                End Select
            Next cell

        Case "Input1"
            For Each cell In Target.Cells
                Select Case cell.Column
                    Case 5, 13
                        cell.Value = StrConv(cell.Text, vbUpperCase)
                End Select
            Next cell

        Case "Sheet7"
            For Each cell In Target.Cells
                Select Case cell.Column
                    Case 3, 6
                        cell.Value = StrConv(cell.Text, vbUpperCase)
                End Select
            Next cell
        End Select
    Application.EnableEvents = True

End Sub
The change only affects "Sheet4 - Column 4" at the moment.

I need the case change to handle the following so that:

Smith (fs) appears as Smith (FS) not as Smith (fs)
which is how the code currently handles the last 4 characters i.e. (fs).

TIA ...spellbound