opening excel file/ hiding special sheets

Put the below under "Thisworkbook"

Private Sub Workbook_Open()
Dim wSheet As Worksheet
    For Each wSheet In Worksheets
        If Left(wSheet.Name,1) = "T" Then wSheet.Visible = False
        If Left(wSheet.Name,1)= "t" Then wSheet.Visible = False
Next wSheet
MsgBox "sheets T/t hidden "


End Sub