Worksheet Renaming

[Guest]

I have multiple Excel spreadsheets containing data that is all upper case. I
would like to modify the documents so that the only the first letter of each
word is upper case and the rest are lower. There is a substantial amount of
data, so manually performing this process would be extremely time consuming.
Is there a way to use formulas to accomplish this automatically?

Thanks!

 

[Guest]

Will this do?

Sub renameall()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Name = Application.WorksheetFunction.Proper(ws.Name)
Next ws
End Sub

Mike