Hyperlink to Worksheet in actual Workbook

vba hyperlink worksheet excel
borlee picture borlee · Jan 27, 2011 · Viewed 22.4k times · Source

How can i add a Hyperlink to a specific cell and address it to a Worksheet in the Excel file?

This is what I already got:

Cells(zeile, 1).Select
Worksheets(1).Hyperlinks.Add Anchor:=Selection, Address:=Workbooks(1).Worksheets(fortnr), SubAddress:=Cells(1, 1).Address

Thanks.

Answer

Dick Kusleika picture Dick Kusleika · Jan 27, 2011 
ActiveSheet.Hyperlinks.Add ActiveCell, "", Sheets(fortnr).Name & "!A1"

The Address should be blank and the SubAddress should be in the form Sheet1!A1. This puts a link in the activecell assuming you have a variable named fortnr that contains a valid sheet name in the same workbook.

If you want to point to a cell in a different workbook, then everything is the same except the Address needs to be that file.

ActiveSheet.Hyperlinks.Add ActiveCell, Workbooks(1).FullName, Sheets(fortnr).Name & "!A1"

Assuming Workbooks(1) is a different file and has been previously saved and has a sheet with the right name, etc, etc.

Related questions

Putting a hyperlink in a MessageBox

Is it possible to add a hyperlink to a messagebox? I'm trying to do something like this: MsgBox "Sorry, but you have an out-of-date database version. Please redownload via the batch file to ensure that you have the latest version. …

Read More
PowerPoint Text Change Upon Click

I have several text boxes. They say: Fruit 1 Fruit 2 Fruit 3 When I click each one, the text should correspondingly change to: Apple Banana Dragonfruit When one of them is clicked, I want it to change to the respective text, but …

Read More
VBA find word and replace with a Hyperlink in Word 2010

I've a word document with some text. At some paragraphs I've words that I want to add the hyperlink to. Here's an example: The book "When the sun goes up", ABC-1212321-DEF, have been released today....... The "ABC-1212321-DEF" should …

Read More