Excel Worksheet Names From Cell

[EBox]

Is there a way to name an Excel worksheet tab with the contents of a particular cell within that tab? For example, whatever is in cell A1 would be the name that appears on that tab?

Any help is appreciated.

Thanks,
EBox

 

[youngcougar]

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

 

[DaleWatson123321]

Sub Set_Name()
shname = [a1].Value
ActiveSheet.Name = shname
End Sub

Regards, Dale Watson

 

[byundt]

If the workbook has been previously saved, you can use the CELL function to return the path, filename & sheet name. This information can then be parsed to get the sheet name.
=MID(CELL("filename",A1),FIND("]",CELL("filename"),A1)+1,99)
In this formula, the reference to cell A1 is arbitrary--it could be any cell on the worksheet.