Hi Sudeep,
One way you can do this is using a macro to create a list of all sheets.
The macro is as follows-
Sub ListSheetNames()
Dim rng As Range
Dim wkSht As Worksheet
Set rng = Range("B2") 'B2 is the first cell from where the list would begin, you can change it to anything you want
rng.Select
For Each wkSht In Worksheets
Selection = wkSht.Name
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Next wkSht
Dim x As Long
x = rng.End(xlDown).Row - rng.Row + 1
rng.Offset(, 1).Resize(x).FormulaR1C1 = "=IF(RC[-1]="""","""",HYPERLINK(""#"" & RC[-1] & ""!A1"",""Go To "" & RC[-1]))"
End Sub
Now insert a new shape and assign the above macro to it. Then click on the shape to run the macro each time.
This macro would create a list of names of all the sheets present in the workbook, starting from cell B2. Then it would create hyperlinks in the adjacent column i.e. column C.
See if this helps.
Do ask for any other query you may have.
Hope this helps!!
Regards
Sourabh
Bookmarks