Which takes care of putting the sheet name in a cell.

For the vice versa.........

Sub SheetName22()
ActiveSheet.Name = Range("c1")
End Sub

Gord Dibben Excel MVP

On Fri, 12 Nov 2004 23:51:51 -0700, JE McGimpsey wrote:

Take a look he

http://www.mcgimpsey.com/excel/formu..._function.html

In article ,
"Neil" wrote:

I would like to display the name of the sheet (the tab name) in a cell - or
vise versa. So the user could change it just once.