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" wrote
in message ...

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