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