Worksheet Renaming

E

Eric

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!
 
M

Mike H

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top