Uppercase next Lowercase

[Manolocs]

Hello, I have to search a long list only column A if there is any word with an Uppercase letter following by the second in Lowercase. Difficult to explain....
Column.........................Column
A.......................................B
Doris Angel.........................""
Ruper michael................Check This
Barack obama................Check This
Ryan Thomas......................""

I know how to capitalize the first letter of the words, but some of them can not be capitalized so I need to check if need or not. Thanks in advance.

 

[FormR]

Maybe it's this - if not post examples and expected results..

Excel 2013
	A	B
1	Adam jones	Check this
2	John smith	Check this
3	Joe Bloggs
4	John Doe
5	Testy mctest	Check this
6	CARLS Clark
7	MARY/PETER Dustin
8	TOM/Paul harris	Check this
9	Testy mctesting testerson	Check this
10	Lee Harvey Oswald
11	test test test test test	Check this
12	Test Test blah blah blah
13	oneword
Sheet1

Cell Formulas
Range	Formula
B1	=IF(EXACT(MID(A1,FIND(" ",A1&" ")+1,1),UPPER(MID(A1,FIND(" ",A1&" ")+1,1))),"","Check this")

 

[Manolocs]

@István Hirsh, I notice that returns #VALUE when the cell has only one word, and the rest is working the way I need. It is what I need for the review..... I will copy this to JimM as well. thank you.....

 

[Manolocs]

Great works perfect... Thank you very much FormR And thanks to everyone.

 

[Fishboy]

I got the errors for one word in the cell as well. Really thank you for your time

Oddly enough, I only get the error if there are cells with a single word in them (i.e - there are therefore no spaces).

I managed to update my code to account for this, but it looks like I may well be too late as you have already found your solution.

For anyone interested, the updated VBA looks like this:

Sub FlagIncorrectCase()
Application.ScreenUpdating = False
Dim SecondWord As String
Dim Result As String
Dim x() As String
Dim Cell As Range, cRange As Range
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
        Set cRange = Range("A1:A" & LastRow)
            For Each Cell In cRange
                x = Split(Cell, " ")
                    If UBound(x) > 0 Then
                        SecondWord = Cell.Value
                            Result = Trim(Split(SecondWord, " ")(1))
                                Cell.Offset(0, 1).Value = Result
                                            If UCase(Left(Cell.Offset(0, 1), 1)) = Left(Cell.Offset(0, 1), 1) Then
                                                Cell.Offset(0, 1).Value = ""
                                            Else
                                                Cell.Offset(0, 1).Value = "Check This"
                                            End If
                    End If
            Next Cell
Application.ScreenUpdating = True
End Sub

 

[Manolocs]

@Fishboy, Anyway I try your code and works great as well. thank you for your time.

 

[Fishboy]

@Fishboy, Anyway I try your code and works great as well. thank you for your time.

You're most welcome, and thanks for all the positive feedback