PDA

View Full Version : test



markmrw
10-10-2008, 04:34 AM
test test test



Private Sub Auto_Close()
Application.ScreenUpdating = False
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Visible = xlSheetVisible
Next WS
Sheets("Rackage Working Model").Visible = xlSheetVeryHidden
Sheets("DataWorkbook").Visible = xlSheetVeryHidden
Sheets("TextronDemo").Visible = xlSheetVeryHidden
Sheets("Sage&Onion").Visible = xlSheetVeryHidden
Sheets("UserLog").Visible = xlSheetVeryHidden
Sheets("FindWord").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub