PDA

View Full Version : Rename Worksheet Tab in UPPER CASE



hardeep
08-20-2010, 12:18 AM
Hello Experts

I have Workbook with more than 150 Worksheets

Worksheet name are in Lower, Proper or Mix type

Now, i want to Change the Name but in UPPER CASE

Other wise i have to do Manually

Is it Possible?

Artik
08-20-2010, 01:08 AM
Sub RenameSheets()
Dim Sh As Object

For Each Sh In ActiveWorkbook.Sheets
Sh.Name = UCase(Sh.Name)
Next Sh
End Sub

Artik

mohanvijay
08-20-2010, 01:14 AM
Hai it is possible

run this macro

vba:


sub sheet_upper()

sheets_count = Worksheets.Count

For i = 1 To sheets_count
oldsheet_name = Sheets(i).Name
newname = UCase(oldsheet_name)
Sheets(i).Name = newname
Next i

end sub

hardeep
08-20-2010, 01:54 AM
Sub RenameSheets()
Dim Sh As Object

For Each Sh In ActiveWorkbook.Sheets
Sh.Name = UCase(Sh.Name)
Next Sh
End Sub

Artik


Thanks Artik

Works gr8