Capitalise any words with less than five characters

Question

How can I capitalise abbreviations if equal or less than 4 letters in column A?

I couldn't find on web anything treating abbreviations specifically.

Answer 1

UCASE("string") will work.

Sub stringtest()
If Len(Range("A1")) < 5 Then
Range("A1") = UCase(Range("A1"))
End If
End Sub