Display Tab name

D

dantb

Active Member

Joined

Mar 20, 2002

Messages

358

• Nov 24, 2005

• #2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A2").FormulaR1C1 = ActiveSheet.Name
End Sub

 

Upvote 0

Fergus

Well-known Member

Joined

Mar 10, 2004

Messages

1,174

• Nov 24, 2005

• #3

Do you mean on the same sheet? if so, try: =SHEETNAME()

Edit: You need the Morefunc Add-in for this, which you can get through the recommended Add-ins page at: http://www.mrexcel.com/board2/viewtopic.php?t=131224

HTH

 

Upvote 0

Barrie Davidson

MrExcel MVP

Joined

Feb 10, 2002

Messages

2,330

• Nov 24, 2005

• #4

Have a look at
http://www.mrexcel.com/board2/viewtopic.php?t=180900

 

Upvote 0

D

dantb

Active Member

Joined

Mar 20, 2002

Messages

358

• Nov 24, 2005

• #5

This would be for all sheets in a Workbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A2").FormulaR1C1 = ActiveSheet.Name
End Sub

 

Upvote 0

Y

Yogi Anand

MrExcel MVP

Joined

Mar 12, 2002

Messages

11,454

• Nov 24, 2005

• #6

Hi yaeourt:

For a formula based solution ...

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

 

Upvote 0

Y

Yaourt

New Member

Joined

Nov 13, 2005

Messages

17

• Jun 10, 2006

• #7

Display tab name

Thanks.

Works fine!

 

Upvote 0