Use this formula then in A1

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255)

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Martín2626 " wrote in message ...
Thanks but it doesn't work. When i change the sheet's name nothing
happens in cell a1.
Other way???



Chip Pearson wrote:
*Martin,

Put the following code in the code module for the worksheet.


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
Me.Name = Range("A1").Value
End If
If Err.Number < 0 Then
MsgBox "Error naming sheet: " & Err.Description
End If
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Martín2626 " wrote in
message ...
HI ALL ! I want to automatically change the name of cell A1
when I
change the sheet's name.
For example:
Cell A1=JANUARY
Sheet 1=JANUARY

When i write FEBRUARY I want that cell A1 = February but i need
it to
change automatically.

TIA

MARTIN


---
Message posted from http://www.ExcelForum.com/
*


---
Message posted from http://www.ExcelForum.com/