Creating Hyperlink to and index page

[dev.sutradhar1987]

Hi,


I have a Sheets "Template" where i enter id's and then press a Button "Create" which creates a new sheet with the Name from Range("F4") of the Template Sheet. Then it gets copied to Sheet("Index") and is pated in coloum "B" in the next empty cell. I have done this far. Now i need to get the Hyperlink done with the Name in the Index Page to the Sheet created with the Same name.


For EG : I have created a new Sheet named "Dev Sutradhar" with the Macro and then the Name got copied to the "Index" Page. The new Sheet created should get Hyperlinked to the Cell where the Name " Dev Sutradhar" is Pasted in the Index Page.


Could anyone Plead help me on this.

 

[Smallman]

Hi Dev


Give the following a try. You are going to need to make the your sheet name a variable but this is to show you how the concept work. If you can't get it to work at your end put this in a fresh workbook and step through it. Will help you to understand the mechnaics. Goes like the Clappers.

[pre]

Option Explicit
Sub HyperL()
Dim ws As Worksheet
Set ws = Sheets("Dev Sutradhar")

Sheet1.Hyperlinks.Add Sheet1.Range("B65536").End(xlUp)(2), "", "'" & ws.Name & "'!A1", , ws.Name
End Sub

[/pre]

Take care


Smallman

 

[dev.sutradhar1987]

Hi Smallman,


It is not working.


Could you please help me in creating the complete macro.Please

 

[dev.sutradhar1987]

Hey Smallman


its Done i have done it. Thanks for your help and the concept.

 

[Smallman]

No worries Dev pleased you got it working in the end. I post a lot of my code in a place I can not upload. Here is the file for anyone following the thread in future.


http://rapidshare.com/files/1170046510/HyperLink.xlsm


Take care


Smalman