Capital & Small Letters

[ExcelPower]

CAn any one give me code for identifing whether data in a cell is capital letter or small case?

thanks in advance


with regards


Excel Power

[NickHK]

ExcelPower,
Dim MyString As String

MyString = ActiveCell.Value

Select Case True
Case MyString = UCase(MyString)
MsgBox "All capitals"
Case MyString = LCase(MyString)
MsgBox "No capitals"
Case Else
MsgBox "Mixed case"
End Select

NickHK

"ExcelPower" <[email protected]> wrote
in message news:[email protected]...
>
> CAn any one give me code for identifing whether data in a cell is
> capital letter or small case?
>
> thanks in advance
>
>
> with regards
>
>
> Excel Power
>
>
> --
> ExcelPower
> ------------------------------------------------------------------------
> ExcelPower's Profile:
http://www.excelforum.com/member.php...o&userid=30964
> View this thread: http://www.excelforum.com/showthread...hreadid=516786
>

[keepITcool]

=If(EXACT(a1,UPPER(a1),"UpperCase",
If(EXACT(a1,LOWER(a1),"Lowercase","MixedCase))
or more elaborate

=IF(ISBLANK(A1),"B",IF(ISNUMBER(A1),"N",IF(ISERROR(A1),"E",IF(EXACT(A1,U
PPER(A1)),"U",IF(EXACT(A1,LOWER(A1)),"L","M")))))

--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


ExcelPower wrote in
<news:<[email protected]>

>
> CAn any one give me code for identifing whether data in a cell is
> capital letter or small case?
>
> thanks in advance
>
>
> with regards
>
>
> Excel Power