Dunno if it's possible in standard formulae - this UDF will put a marker of TRUE or FALSE as to whether a cell content is ALL Caps or not tho
Function Caps(rng As Range) As Boolean
Application.Volatile
For i = 1 To Len(rng.Text)
Select Case Mid(rng.Text, i, 1)
Case Chr(65) To Chr(90)
Caps = True
Case Else
Caps = False
Exit For
End Select
Next i
End Function
Rgds
Geoff
Vah! Denuone Latine loquebar? Me ineptum. Interdum modo elabitur