Macro - Sheet renaming - Can it be done with one?

[crystalball]

Hello all,

I'm working on a project in excel and one of the features we want is a button that will pull data from a cell and rename the current sheet to what is in that cell. I know this can be done, and have done it. My question is, is there an all purpose way to do it? I'd prefer to make 1 macro that can be used on every sheet instead of one for each, and the default macro recording seems to specify the sheet name. Is there a way to make the macro rename the current sheet, whatever that sheet might be?

Thanks ahead of time.

 

[VoG]

Try

ActiveSheet.Name=Range("A1").Value