Creating a hyperlink to a sheet

[davedave24]

Hi, I have a button on multiple pages that I need to place a hyperlink back to the page it came from. The hyperlink will be placed on the first worksheet, called Overview.

Dim TargetSheet As Worksheet
[highlight #73D216]I've tried both of these and other things but none work[/highlight]
[COLOR=#4E9A06]Set TargetSheet = ActiveSheet.Name[/color]
[COLOR=#4E9A06]Set TargetSheet = ActiveSheet.Range("C2")[/color]   'C2 also contains the name of the sheet


 With ThisWorkbook.Worksheets("Overview")
        .Select
        .Range("B4").Select
        Selection.End(xlDown).Offset(1, 0).Select

        [COLOR=#EF2929]ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=TargetSheet[/color]       

End with

 

[SkipVought]

Hi,

Did you use you macro recorder?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[davedave24]

Yeah I used it to generate the 'ActiveSheet.Hyperlinks.Add ....' line

 

[SkipVought]

THAT code was NOT generated by record. You may have used PART of the recorded macro, but THAT is not recorded code!

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[davedave24]

Yes, I used the macro function to generate the line, and I've altered the end of it to make the link go to the page that generated it.

 

[SkipVought]

Well then you don't need any help!

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[davedave24]

Except it generates an error.

 

[SkipVought]

Error?

What error on what statement?

ALSO please post the exact macro code generated by the recorder.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}