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

OR

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


HTH,
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"kendall" wrote:

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!