Sheet tab name to be hyperlinked without being underlined & to be in linked in Text Box

[paradise2sr]

Dear Sir,

I want to edit the formula since I am not well perfect in VBA for excel.When I put this code, all the worksheet tab name appears in a single worksheet as defined by the name "Index".But the problem for me is that I want those tab name without being underlined.Also I want all those tab name in a text box by modifying this formula. If this is possible,kindly help me in this regard.The vba code is as follows :

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long

l = 1

With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDEX"
.Cells(1, 1).Name = "Index"
End With


For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
With wSheet
.Range("A1").Name = "Start_" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
SubAddress:="Index", TextToDisplay:="Back to Index"
End With

Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet

End Sub

I will be eagerly waiting for your reply.

With Best Rgds,
Suresh

[stanleydgromjr]

paradise2sr,

If I understand you correctly, see if the below link will assist you:

Sheet Selector Menu ComboBox by Tom Urtis 2003 2007

http://<b>http://www.atlaspm.com/tom...down-list/</b>

[paradise2sr]

paradise2sr,

If I understand you correctly, see if the below link will assist you:

Sheet Selector Menu ComboBox by Tom Urtis 2003 2007

http://<b>http://www.atlaspm.com/tom...down-list/</b>

Dear Sir/Madam,

Thanks for your reply.But the link you gave,I could not be able to get in that websites.

With Best Rgds,

Suresh

[stanleydgromjr]

paradise2sr,

In the Quick Reply box, just put the word BUMP. Then, click on the Post Quick Reply button, and someone else will assist you.

[paradise2sr]

Dear Sir/Madam,

I did not understand what you mean to say.

With Rgds,
suresh