Lower case string substring check

[Tanu]

For eg - If there is any lower character then it should highlight to red color.....for eg- If we have a data like TAnU and it contains a lower case then it should highlight it in red color another eg - tANU then it also highlight so how we can implement it....

 

[Fluff]

How about

Fluff.xlsm
	A
1
2	190 BXJ
3	126 ZhK
4	143 SPV
5	328 PMC
6	124 XNS
7	392 YGX
8	280 HFS
9	386 HWK
10	333 MZG
11	345 ZVW
12	370 NRC
13	204 RRp
14	408 KBF
Main

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
A2:A14	Expression	=LET(c,CODE(MID(A2,SEQUENCE(LEN(A2)),1)),SUM((c>=97)*(c<=122))>0)	text	NO

 

[Tanu]

How about

Fluff.xlsm
	A
1
2	190 BXJ
3	126 ZhK
4	143 SPV
5	328 PMC
6	124 XNS
7	392 YGX
8	280 HFS
9	386 HWK
10	333 MZG
11	345 ZVW
12	370 NRC
13	204 RRp
14	408 KBF
Main

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
A2:A14	Expression	=LET(c,CODE(MID(A2,SEQUENCE(LEN(A2)),1)),SUM((c>=97)*(c<=122))>0)	text	NO

Need proper VBA code for this

 

[Fluff]

Then why didn't you say that to start with?
Hopefully somebody will provide the code.

 

[shinigamilight]

Sub jj()
        Dim Regex As Object
        Set Regex = CreateObject("vbscript.regexp")
        Dim rng As Range
        
        With Regex
            For Each rng In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
                .Pattern = "[a-z]"
                If .Test(rng.Value) Then rng.Interior.Color = vbRed
            Next rng
        End With
        
End Sub

 

[Peter_SSs]

Bit late to the party but just stumbled on this thread and think this simple approach should do the job without the need for Regex.

Sub HighlightLowerCase()
  Dim rng As Range
  
  For Each rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
    If rng.Value <> UCase(rng.Value) Then rng.Interior.Color = vbRed
  Next rng
End Sub