Comments on: Changing Text Case

By: Greg Miller

Greg Miller — Fri, 12 Nov 2004 19:29:00 +0000

Oops, forgot an i=i+1 at the bottom of the while loop. Also the indenting didn’t work.

By: Greg Miller

Greg Miller — Fri, 12 Nov 2004 19:28:00 +0000

Another way which doesn't require you to specify exactly how many cells you want to do is:

Sub ConvertUpper()
dim i as integer
i=0
while range("a1?).offset(0,i).value <> ""
range("a1?).offset(0,i).value=UCase(range("a1?).offset(0,i).value)
wend
End Sub

By: fred

fred — Fri, 12 Nov 2004 17:33:00 +0000

From the UI you could:
- add a column
- enter the case changing formula '=upper(??)'
- copy the resulting values
- paste special/values back over the original values
- delete the column you added.