Code to hide sheets
 

Hi
I have a workbook for the time attendance in the main sheet there is
a
list of ID numbers with link
when ever you click on your ID"number" your sheet will open and than
you can
put how many hours y have worked each day
what i need is a way to hide those sheets from being seen but
whenever
you press on your name your sheet will be displayed. but each month i
have to access each sheet so i can add rows in it and add the date
and
the projects +sometimes i need to add sheets for new employees

I have used the following but it is for a value text not a number what
should i put instead ?

And can i put this file on shared ? and it will still work properly
and if not is there is any way ? to do this ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws As Worksheet
If Range("D1").Value = "Tia" Then Exit Sub
If Target.Count 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing And _
Target.Row 1 Then
For Each ws In ThisWorkbook.Worksheets
If ws.Name < "Main" Then ws.Visible = False
Next ws
Sheets(Target.Value).Visible = True
Sheets(Target.Value).Select
End If
End Sub

Private Sub Workbook_Open()
Dim ws As Worksheet
If Sheets("Main").Range("D1").Value = "Tia" Then
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws
End If
End Sub