How to Set Worksheet Name to a cell Value in WorkSheet?

K

kendall

I am trying to set the name of a Sheet to a Cell within that sheet. Example
its current name is "Sheet1". I need the sheet name to change to a value in
a Cell. Is this possible - can anyone help.
Thank you!
 
G

Gary L Brown

'/========================================/
Sub ChangeSheetName()
Application.ActiveSheet.Name = ActiveCell.Value
End Sub
'/========================================/

OR

'/========================================/
Sub ChangeSheetName()
Application.ActiveSheet.Name = Range("C2").Value
End Sub
'/========================================/


HTH,
 
Top