Macro to Change to Title Case in Excel??? 2

[SnakeCharmer]

I have the following code to change all cells on a worksheet to uppercase:

******

Sub MakeUppercase()
For Each cell In ActiveSheet.UsedRange
If cell.HasFormula = False Then
cell.Value = UCase(cell.Value)
End If
Next cell
End Sub

******

I can change the UCase to an LCase to convert to lowercase, but how can I convert to title case?

Cheers!

 

[ETID]

Sub MakeUppercase()
For Each cell In ActiveSheet.UsedRange
If cell.HasFormula = False Then
cell.Value = Application.WorksheetFunction.Proper(cell.Value)
End If
Next cell
End Sub

 

[SnakeCharmer]

Fantastic! Thanks very much

 

[bryanbayfield]

ETID, I'm a little intrigued as to why you need to check that the cell doesn't have a formula a formula first before transforming the text?

Also, in my book,

cell[code] is a little too close to [code]cells

, I'd change it to eg

cll

, but I guess that's a stylistic thing.

 

[ETID]

I only looked at the problem as outlined by the question.

So I only modified that part of snakecharmer's code as posted.