VBA- cells that contain lowercase letters

[cheerz4325]

Hello,

I am looking for a code in vba excel that helps me highlight cells that contain lowercase letters pink. The code should start at => Range("table").CurrentRegion.

Thank you for your help!

 

[EXCEL MAX]

You can try in this way...

Sub HighlightLCaseCells()

    With Range("table").CurrentRegion
        For Each vC In .Cells
            For vN2 = 1 To Len(vC)
                If Mid(vC, vN2, 1) Like "[a-z]" Then _
                    vC.Interior.Color = RGB(255, 150, 255)
                    GoTo EX
            Next vN2
EX:     Next vC
    End With
    
End Sub

 

[Peter_SSs]

cells that contain lowercase letters

Do you mean any lower case letters or do you mean all lower case letters?
For example, which of these cells would you want highlighted?

21 11 10.xlsm
	A
1	ABC
2	abc
3	Abc
4	a123b
5	3456#@6
lower case

 

[amria23]

You can try in this way...

Sub HighlightLCaseCells()

    With Range("table").CurrentRegion
        For Each vC In .Cells
            For vN2 = 1 To Len(vC)
                If Mid(vC, vN2, 1) Like "[a-z]" Then _
                    vC.Interior.Color = RGB(255, 150, 255)
                    GoTo EX
            Next vN2
EX:     Next vC
    End With
   
End Sub

Thank you so much. It helped a lot!

 

[EXCEL MAX]

I'm glad if this was helpful.

 

[EXCEL MAX]

Sorry, after Peter's comment I notice that I forgot to close "If" statement.
Of course, with suppose OP asks to highlight cells that contain any lowercase letter.

       If Mid(vC, vN2, 1) Like "[a-z]" Then
           vC.Interior.Color = RGB(255, 150, 255)
           GoTo EX
       End If

 

[Peter_SSs]

suppose OP asks to highlight cells that contain any lowercase letter.

If that is the case, then I think another (non-looping) way would be

Sub AnyLowerCase()
  With Range("table").CurrentRegion
    .FormatConditions.Add Type:=xlExpression, Formula1:=Replace("=NOT(EXACT(#,UPPER(#)))", "#", .Cells(1).Address(0, 0))
    .FormatConditions(1).Interior.Color = RGB(255, 150, 255)
  End With
End Sub