View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Paul B Paul B is offline
external usenet poster
 
Posts: 709
Default how do i change all text case in a given worksheet at one time

Debi, you can with a macro, if you need help using this post back

Sub Proper_Case()
'select the range you want to change
'and run this macro
Application.ScreenUpdating = False
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = Application.WorksheetFunction.Proper(Rng.Value)
End If
Next Rng
Application.ScreenUpdating = True
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Debi" wrote in message
...
I am attempting to change all the text in a 2,100 line item worksheet at
the
same time with the results displaying in the orginal cell that previously
had
the data in it but was all upper case. I have tried the proper function
and
put a range in instead of the specifc text. The results dislayed in the
cell
the proper funtion was written in the last cell only from range I
specificed.
Is there a way to do the whole SS at a time