Create a "Home" button multiple sheets

[Shay A]

Hi,
I have used this code to create a list of the worksheets included in the WB. I also created a hyperlink to each sheet. How can I insert a button on every sheet that will bring the users back to "Home Page"?


Option Explicit
Sub SheetNames()
Dim i As Integer
Application.ScreenUpdating = False
Columns(1).Insert
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
Application.ScreenUpdating = False

End Sub

 

[vletm]

Shay A
Select Cell A1 from any sheet and ...
You'll be at home.

 

[Shay A]

But I would have to go through each WS individually. I want Home button on every sheet.

TY

 

[vletm]

Shay A
You can write 'Home' to every A1-cell if it would be 'easier'.
Where do You need a button?

 

[Derek McGill]

What do you mean "But I would have to go through each WS individually." ??

 

[Shay A]

What I mean is that want to insert a Home button with having to go to each WS

 

[Shay A]

Ok, in the mean time I have this solution.
=HYPERLINK("#'"&"Home"&"'!A1","Home")

 

[Derek McGill]

What do you think the difference between clicking on A1 and pressing a "Home" button would be ?

 

[Shay A]

Functionality wise, there is no difference. However, a button would more noticeable. In my opinion.

 

[vletm]

Shay A
Do You need more noticeable for A1?
This is 'challenge' to delete and
You could move it any cell as You would like to do...