here's a less elegant way than the others, but just as an example


Sub test()
Debug.Print Asc(Range("A1").Value)
If Asc(Range("A1").Value) <= 90 And Asc(Range("A1").Value) = 65 Then
Range("B1").Value = "UPPER CASE"
End If
If Asc(Range("A1").Value) = 97 And Asc(Range("A1").Value) <= 122 Then
Range("B1").Value = "lower case"
End If
End Sub

--


Gary


"phil" wrote in message
...
is it possible to check the case of a letter. All the functions i found in
help seem to be able to convert text to a particular case but not check the
case