is text capital
 

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?

is text capital
 

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?

is text capital
 

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?