Question:
I am trying to use the PROPER function for an entire sheet, I am having
trouble getting it to work. Anyone have any suggestions?
Answer:
best to do it with a vba macro
Select cells first
Every time you run it the selection changed to proper,lower,upper.
Sub ToggleFormat()
Dim selectie As Range
Dim Rng As Range
On Error Resume Next
Set selectie = Range(ActiveCell.Address & "," & Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
If selectie Is Nothing Then Exit Sub
For Each Rng In selectie
Select Case Rng.Value
Case UCase(Rng.Value): Rng.Value = LCase(Rng.Value)
Case LCase(Rng.Value): Rng.Value = StrConv(Rng.Value, vbProperCase)
Case Else: Rng.Value = UCase(Rng.Value)
End Select
Next
End Sub
- I'm not really familiar with vba macro. I did copy what you had below and I
ended up with everthing in lower case. What do I need to change to your
macro below to get it to do a Proper case?
- It just run the Sub again until you get the PROPER format. The
routine toggles from one format to the next in order. Assign the routine to a
button and each time you click, the format cylcles.
