You look to be determined to get your entire application developed here, but don't mind i like working like this
Its really good that you are coming up with interesting questions one after the another.
I have taken the sheet from your previous post, http://www.ozgrid.com/forum/viewthread.php?tid=1326
so that you will not loose that work. Also, I have proactively added two additional columns in the index apart from Sr. and Sheet Name
1. Description : Currently linked with cell A1 on each sheet
2. Count of records : Currently linked with Cell H1 on respective (which is formatted as ;;; so not visible) which gives the count
I have also amended the Overall Sheet Copy formula to take care of this Index page, other wise, it will messup that!!!
I have also taken the liberty to copy the image you use for Avatar on this site and pasted it on index, and linked the macro to that image, just for fun
Here is the code for Index,
'By Yogendra Joshi
Dim sht As Worksheet
Dim lnk, lnk_show As String
Dim cnt As Integer
'Clear Existing Data
Application.ScreenUpdating = False
If (ActiveCell.SpecialCells(xlLastCell).Row) > 8 Then
'Checking for Worksheets and copying data
For Each sht In Worksheets
If Left(sht.Name, 1) <> "_" And sht.Name <> "Index" Then
lnk = "'" & .Name & "'!A1"
lnk_show = .Name
ActiveCell.Value = (Selection.Row) - 8
ActiveCell.Value = .Name
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, _
ActiveCell.Offset(0, 1).Value = .Range("A1").Value ' add your own cell if needed
ActiveCell.Offset(0, 2).Value = .Range("H1").Value ' added a hidden cell for count
Application.ScreenUpdating = True
Hope this helps...
Please do keep coming with more such brellient ideas, someone here will surely put it to reality. :cheers: