How to hyperlink cell value to worksheet with the same name?

[J1s]

I am attempting to have Excel VBA identify the name in the active cell and hyperlink that cell to a sheet within the same workbook that has the same name as the cell?

For example:

Cell A5 contains the value "Europe"
There exists a sheet in the same workbook entitled "Europe"
I would like to have excel identify the name and match it to the sheet with the same name, then Hyperlink the cell to the sheet.

Is this possible? If so could some one walk me through how to write such code?

Thx, J

[Miraun]

Hey J1s

Let me preface this with... I'm still terrible at VBA, but I'm trying!

I've written up a couple lines of code that will work if you run the macro on the activecell that you're trying to link to another sheet in the workbook.

I didn't create an error routine if the names are off or anything though... I assume you can figure out that there's a problem if you get a runtime error.

Anyway, here's the code!

Dim Page As String

    Page = ("" & ActiveCell.Value & "!A1")
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Page
               
End Sub

Hope this helps, or gives you a little insight for your project!

[J1s]

The code works perfectly!! You saved me hours of trial and error. Thank you Miraun.

[ajthevj]

Hi Miraun,

I am new to this forum just joint today. I exactly got the code which I wanted. This is really great!!!!! But I have slightly different requirement. Is it possible to select more than one cell and link with the same tabs? For eg. I have below values in the cells and same tab names. If I use the code which you provided doesn't work it gives error. If I individually do for each cell then it will take a longtime because my sheet has more than 200 values. Any help would be greatly appreciated.

Thanks

12345
12346
12347
12348

[fredericktammy60]

Hello All, this code worked great. Is there a way I can have a cell value on sheet one hyperlink to the same value on sheet 2?

[Julie Brook]

I know this is a kind of old thread, but this is exactly what I'm trying to do, link cells to tabs which match the cell contents.
I tried the VBA code above, and get "compile error - invalid outside procedure" highlighting the first pair of "". I'm not a VBA programmer, was just looking for a way to do this, so I'm not sure how to fix this. I'm using Excel 2010. Thanks for any assistance...

[protonLeah]

@Julie Brook: Please start your own thread