Here is something that will work that I found in an example ages ago.
Can't remember who developed it
Sub ConvertToTitle()
Dim wks As Worksheet
Dim rngCell As Range
Dim iCols As Integer
Dim iRows As Integer
For Each wks In Sheets
With wks.UsedRange
For iCols = 1 To .Columns.Count
For iRows = 1 To .Rows.Count
Set rngCell = .Cells(iRows, iCols)
If Not rngCell.HasFormula Then _
rngCell.Value = StrConv(rngCell.Text, 3)
Next iRows
Next iCols
End With
Next wks
End Sub
"Br0wn Recloose " wrote in
message ...
hi,
i have a situation where i frequently receive xls files with lots of
text written in ALL CAPS. i need for that text to use "proper"
capitalization (Title Case would be an adequate alternative, and lower
case would be a last resort.), but am looking to avoid lots of typing.
i'm on mac osx, and believe i'd prefer an applescript solution. i've
dabbled a bit in applescript but don't know enough to pull this one
off. an applescript would also be excellent because i figure i could
probably modify it without too much trouble, to work with other
applications.
if there is a non-applescript solution, i'd be interested to know that
as well. i could also make use of a PC solution, such as a VBscript,
if necessary.
thanks!
jon
---
Message posted from http://www.ExcelForum.com/