I'm trying to change all-caps text to Proper. I found the formula to
do this, but I run into trouble by trying to apply it. I create a
circular reference, apparently. How do I fix this? Better yet, is
there a way to change the whole spreadsheet at once? There are a lot
of cells I need to apply this too. Thanks!

Sub SetToProper()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Not cell.HasFormula Then
cell.Value = Application.Proper(cell.Value)
End If
Next cell
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
I'm trying to change all-caps text to Proper. I found the formula to
do this, but I run into trouble by trying to apply it. I create a
circular reference, apparently. How do I fix this? Better yet, is
there a way to change the whole spreadsheet at once? There are a lot
of cells I need to apply this too. Thanks!

I appreciate the help, but you'll have to forgive me - I'm still
totally lost. I have a very rudimentary knowledge of the program.
Bob Phillips wrote:
Sub SetToProper()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Not cell.HasFormula Then
cell.Value = Application.Proper(cell.Value)
End If
Next cell
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
I'm trying to change all-caps text to Proper. I found the formula to
do this, but I run into trouble by trying to apply it. I create a
circular reference, apparently. How do I fix this? Better yet, is
there a way to change the whole spreadsheet at once? There are a lot
of cells I need to apply this too. Thanks!

Just go into the VBIDE, Alt-F11. Insert a new code module (InsertModule).
Paste that code in the code pane, and then put the cursor in the code, and
run it , F5.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
I appreciate the help, but you'll have to forgive me - I'm still
totally lost. I have a very rudimentary knowledge of the program.
Bob Phillips wrote:
Sub SetToProper()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Not cell.HasFormula Then
cell.Value = Application.Proper(cell.Value)
End If
Next cell
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
I'm trying to change all-caps text to Proper. I found the formula to
do this, but I run into trouble by trying to apply it. I create a
circular reference, apparently. How do I fix this? Better yet, is
there a way to change the whole spreadsheet at once? There are a lot
of cells I need to apply this too. Thanks!

Bob,
It worked! Thanks so much, you've saved me a LOT of time!

-Frank
Bob Phillips wrote:
Just go into the VBIDE, Alt-F11. Insert a new code module (InsertModule).
Paste that code in the code pane, and then put the cursor in the code, and
run it , F5.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
I appreciate the help, but you'll have to forgive me - I'm still
totally lost. I have a very rudimentary knowledge of the program.
Bob Phillips wrote:
Sub SetToProper()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If Not cell.HasFormula Then
cell.Value = Application.Proper(cell.Value)
End If
Next cell
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
I'm trying to change all-caps text to Proper. I found the formula to
do this, but I run into trouble by trying to apply it. I create a
circular reference, apparently. How do I fix this? Better yet, is
there a way to change the whole spreadsheet at once? There are a lot
of cells I need to apply this too. Thanks!