"... OR do you have suggestion for ... code to made only lower case letters red"
Да, это было бы так, но это не невероятно эффективно
Option Explicit
Sub LowercaseToRed()
SpeedUp True
On Error GoTo ErrClose
Dim cell As Range
For Each cell In Range("A1:D10")
Dim i As Long
For i = 1 To cell.Characters.count
If 97 <= Asc(Mid(cell.Value2, i, 1)) And Asc(Mid(cell.Value2, i, 1)) <= 122 Then
cell.Characters(i, 1).Font.color = vbRed
End If
Next i
Next cell
ErrClose:
SpeedUp False
End Sub
Sub SpeedUp(ByVal toggleOn As Boolean)
With Application
.Calculation = IIf(toggleOn, xlCalculationManual, xlCalculationAutomatic)
.ScreenUpdating = Not toggleOn
.DisplayStatusBar = Not toggleOn
.EnableEvents = Not toggleOn
End With
End Sub