How do I change all text to CAPS?

Hi Rob,

If you download the free evaluation copy of the spreadsheet assistant at http://www.add-ins.com/assistnt.htm

and then install it adds features to excel and one is where you can select cells Click format and then change letter case and it gives you a number of options like Capitalize all letters or the convert to proper case.

The download also adds lots of other cool features

Colm

Rob, see this earlier post and the proposed solutions.

23071.html

Re: How do I change all text to CAPS code.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCells As Range
Application.EnableEvents = False
If Not Intersect(Target, Columns("B:C")) Is Nothing Then
For Each rCells In Intersect(Target, Columns("B:C"))
rCells = UCase(rCells.Text)
Next
End If
Application.EnableEvents = True
End Sub

This code is to be added to the Sheet-Tab View-code macro page, the name cannot be changed or the code will fail!

The code will change Columns B & C to upper case. The code can be changed to change a cell, row or range as well! JSW

Re: How do I change all text to CAPS code.

Try the following code:

This code allows you to toggle through all lower case, sentence case, and all caps.

Sub ToggleCase()
Dim rng As Range
For Each rng In Selection.Cells
Select Case True
Case rng = LCase(rng)
rng = UCase(rng)
Case rng = UCase(rng)
rng = Application.Proper(rng)
Case Else
rng = LCase(rng)
End Select
Next
End Sub

Hope this helps!