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
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.