I'd like to use VBA to determine if the text in strMyString is all capital
(upper case) letters, but I'm not sure how. Any ideas?

Hi Dave,

Try:

'====================
Function IsAllUcase(sStr) As Boolean
IsAllUcase = sStr = UCase(sStr)
End Function
'<<====================

'====================
Public Sub TestIt()
Dim Arr As Variant
Dim i As Long

Arr = Array("abc", "ABc", "ABC")

For i = LBound(Arr) To UBound(Arr)

Debug.Print Arr(i), IsAllUcase(Arr(i))
Next
End Sub

'<<====================


---
Regards,
Norman



"Dave B" wrote in message
...
I'd like to use VBA to determine if the text in strMyString is all capital
(upper case) letters, but I'm not sure how. Any ideas?

If UCase(strMyString) = strMyString Then ....

--
Ian
--
"Dave B" wrote in message
...
I'd like to use VBA to determine if the text in strMyString is all capital
(upper case) letters, but I'm not sure how. Any ideas?