Dear All

I got all sheets name in my workbook by this code
Sub GetSheetNames()

Dim i As Integer
Dim SheetName()
sheetcount = Application.Worksheets.Count
ReDim SheetName(1 To sheetcount)
For i = 1 To sheetcount
Cells(i, 1) = Sheets(i).Name
Next

End Sub

I want that when I got all the sheet names a code make hyperlink to its
corresponding sheet

Thanks in advance :)