Check for uppercase letters in VBA

[lighty]

Hello, I am new to VBA and I need to make a function that checks for uppercase letters in Strings. I have tried searching the web but I only managed to find checks for the first letter.
The Strings can also contain numbers.
I just need to check if the letter in a String is uppercase or not, that is all.

 

[JLGWhiz]

Not really sure what you want. If you enter a formula on an excel sheet:

=upCase(A2)

and there is an Upper Case letter in the string, it will return a message box with Yes. Otherwise it returns nothing and posts a zero in the sell with the formula. If you call the function in code"

upCase Range("A2"

It displays the message box if there is an Upper Case letter, or ignores it and does nothing if there is none.

Function upCase(rng As Range)
Dim uc As String
For i = 1 To Len(rng.Value)
    uc = (Mid(rng.Value, i, 1))
    If uc = UCase(uc) Then
        MsgBox "Yes"  
    End If
Next
End Function

 

[shg]

Welcome to the board.

[Table="width:, class:grid"][tr][td]Row\Col[/td][td]

A​

[/td][td]

B​

[/td][td]

C​

[/td][/tr]
[tr][td]

1​

[/td][td]My dog has fleas[/td][td]

TRUE​

[/td][td]B1: =HasCap(A1)[/td][/tr]

[tr][td]

2​

[/td][td]my dog has fleas[/td][td]

FALSE​

[/td][td][/td][/tr]

[tr][td]

3​

[/td][td]123ab[/td][td]

FALSE​

[/td][td][/td][/tr]

[tr][td]

4​

[/td][td]22Skidoo[/td][td]

TRUE​

[/td][td][/td][/tr]
[/table]

Function HasCap(sInp As String) As Boolean
  HasCap = sInp Like "*[A-Z]*"
End Function

 

[RickXL]

Hi and welcome to the MrExcel Message Board.

Is the Like command what you need?

If "awCd " Like "*[A-Z]*" Then Debug.Print "Found" Else Debug.Print "Not found"

This HELP is for VB but it seems to apply to VBA as well: Like Operator (Visual Basic)

Regards,

 

[lighty]

Thank you guys, these are all usefull. Though, I found the second solution easiest to use.
Thank you all for the contribution, you have a nice forum!