Sub IndexWs()
Dim Ws As Worksheet
Dim c As Range
Dim k As Integer
Set c = Application.InputBox(Prompt:="Where do you want to begin your index:", Type:=8)
k = Worksheets.count
For i = 1 To k
With c
.Value = Sheets(i).Name
.Hyperlinks.Add Anchor:=c, Address:="", _
SubAddress:="'" & Sheets(i).Name & "'!A1"
End With
If Sheets(i).ProtectContents = True Then
c.Offset(0, 1) = "Protected"
Else
c.Offset(0, 1) = "Unprotected"
End If
If Sheets(i).Visible = xlSheetVisible Then
c.Offset(0, 2) = "Visible"
Else
If Sheets(i).Visible = xlSheetHidden Then
c.Offset(0, 2) = "Hidden"
Else
c.Offset(0, 2) = "Very Hidden"
End If
End If
Set c = c.Offset(1, 0)
Next i
End Sub