Changing to Proper Text

[Lightrider2003]

Anyone please help!!
I have a spreadsheet completed in ALL CAPS.

The spreadsheet contains 11 columns and 661 rows of data. Can anyone help me change this data to Proper Text. What is the easiest way to accomplicsh this?
Thank you all in andvance!
TJ

[dk]

Is there formula in your data? Or is it all just values? If it's the latter then try this macro:-

Sub ConvertToProper()
'Won't work with formulae, only constants
Dim vArray(), lngRow As Long, lngCol As Long


ReDim vArray(1 To ActiveSheet.UsedRange.Rows.Count, 1 To ActiveSheet.UsedRange.Columns.Count)

vArray = ActiveSheet.UsedRange.Value


For lngRow = 1 To ActiveSheet.UsedRange.Rows.Count
    For lngCol = 1 To ActiveSheet.UsedRange.Columns.Count
        vArray(lngRow, lngCol) = WorksheetFunction.Proper(vArray(lngRow, lngCol))
    Next lngCol
Next lngRow

ActiveSheet.UsedRange.Value = vArray

End Sub

HTH,
D

[Ian Mac]

Download ASAP Utilities a free add-in that will do the job (and more) for you.

link:

http://asap-utilities.com

[Lightrider2003]

Ian and DK Thank you very much. The macro answer was over my head but I downloaded the utility and probably didn't learn anything but got the results I desparately needed! Thanks to both of you!!
TJ