select case macro error debug

Hi,
I have this code which is not running the possible reason which can be is contents of column 'S' has two spaces after which I am not able to remove,pl advice

Sub replc()
    Dim i As Long
    For i = 2 To Range("S" & Rows.Count).End(xlUp).Row Step 1
        Select Case UCase(Range("S" & i).Value)
            Case "BT"
                Range("T" & i).Value = "BTS"
            Case "MW"
                Range("T" & i).Value = "Minilink / Access Link"
            Case "BS"
                Range("T" & i).Value = "BSC"
            Case "IN"
                Range("T" & i).Value = "IN"
            Case "TE", "TS"
                Range("T" & i).Value = "Transmission"
            Case "NM"
                Range("T" & i).Value = "OSS"
            Case "SE"
                Range("T" & i).Value = "Services"
            Case "AN"
                Range("T" & i).Value = "GSM antenna"
            Case "NL", "OF"
                Range("T" & i).Value = "NLD-OFC"
            Case "MP"
                Range("T" & i).Value = "MPBN"
            Case "VA"
                Range("T" & i).Value = "VAS"
            Case "TW", "ST", "DG", "TF", "IF", "PP", "BA", "AC", "IN", "SH", "PS", "UP", "BA", "AC"
                Range("T" & i).Value = "Civil & Infra"
            Case "NW", "GP"
                Range("T" & i).Value = "VAS"
            Case Else
                ' Don't change anything
        End Select
    Next i
End Sub