tab name into a cell

[andrewhoddie]

Hello

Is there a way of using the tab name to automatically enter that name into a cell e.g. tab name is 11mar11 and this would be automatically input in to cell A1,

This could work the other way round if that is easier so cell A1 would name the worksheet tab.

thanks
Andrew

 

[VoG]

Hi. The file must be saved first for this to work

<code>=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))</code>

 

[Trevor G]

Try this code it will go through each sheet and place the sheet name in cell A1 on each sheet

Sub checkSheet()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Range("a1") = ws.Name

Next ws
End Sub

you could change part of the code if you want the sheet name to be the same as A1.

 

[Sandeep Warrier]

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

 

[andrewhoddie]

Thanks very much, working well