Louise.

Just be careful that there are no formulas in your range to change.

They will be converted to values only.

Preferable to use c.Formula = WorksheetFunction.Proper(c.Formula)


Gord Dibben MS Excel MVP


On Tue, 27 May 2008 04:21:00 -0700, Louise
wrote:

That seems to have worked a treat and has saved me loads of time!! I still
struggle to get my head around VBA and can't actually write it myself.

Thanks very much.
Louise

"Mike H" wrote:

Hi,

Change this
c.Value = LCase(c.Value)

to this

c.Value = WorksheetFunction.Proper(c.Value)

Mike
"Louise" wrote:

Hi Mike

Thanks very much for this, it works, however, is there any way it can
capitalise the first letter of every word, as the worksheets contain people's
names and divisions.

Thanks again.

Louise

"Mike H" wrote:

Put this in a general module and run it

Sub change_Case()
For x = 1 To Worksheets.Count
Worksheets(x).Select
Selection.SpecialCells(xlCellTypeConstants, 2).Select
For Each c In Selection
c.Value = LCase(c.Value)
Next
Next
End Sub


Mike

"Louise" wrote:

Hi all

I can't believe I can't remember how to do this but how do you change text
in Excel from upper case to sentence case? I have a workbook with approx. 15
worksheets and everything is in upper case and needs changing.

Thank you.
Louise