Sub Color_RUS_LAT()
    Dim iCell As Range, rRange As Range, i%, ascii%, iColor%
    Set rRange = Intersect(Selection, ActiveSheet.UsedRange)
    If rRange Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each iCell In rRange
        For i = 1 To Len(iCell)
            ascii = Asc(Mid(iCell, i, 1))
            If (ascii >= 192 And ascii <= 255) Then iColor = 4    'цвет символов РУС
            If (ascii >= 65 And ascii <= 90) Or (ascii >= 97 And ascii <= 122) Then iColor = 3    'цвет символов LAT
            iCell.Characters(Start:=i, Length:=1).Font.ColorIndex = iColor
        Next i
    Next iCell
    rRange.Select
    Application.ScreenUpdating = True
End Sub

Sub ChangeEngRus_CcEeTOopPAaHKkXxBM()
    Dim c As Object
    Dim n As Integer, i As Integer, posChar As Integer
    Dim ToRusLang As Boolean
    Dim LineChars(1) As String * 72
    Dim Ch As String * 1
    Dim TempSelection As String
    LineChars(0) = "CcEeTOopPAaHKkXxBM"
    LineChars(1) = "СсЕеТОорРАаНКкХхВМ"
    For Each c In Selection.Cells
        TempSelection = c.Value
        ToRusLang = True
        For i = 1 To Len(TempSelection)
            Ch = Mid(TempSelection, i, 1)
            If ToRusLang Then n = 0 Else n = 1
            posChar = InStr(LineChars(n), Ch)
            If posChar = 0 Then
                n = 0    'Abs(n - 1)
                posChar = InStr(LineChars(n), Ch)
            End If
            If posChar <> 0 Then
                Select Case n
                Case 0
                    ToRusLang = True
                Case 1
                    ToRusLang = False
                End Select
                Mid(TempSelection, i, 1) = Mid(LineChars(Abs(n - 1)), posChar, 1)
            End If
        Next
        c.Value = TempSelection
    Next c
    Color_RUS_LAT
End Sub