Clear Filters on Certatin Worksheet when Workbook is Opened?

[jcranst]

Workbook Name: Master Diary.xlsm
Worksheet to clear filters on opening: Time Sheet

If Data is hidden when "Master Diary.xlsm" is opened I need to show all data. (I don't care about sorting just a filter hiding rows)
Workbook has 3 worksheets and could be opened on any othe 3. I only want "Time Sheet" cleared.

This is what I have tried but nothing happens when I open the sheet,

[code]
Private Sub Workbook_Open()
Worksheets("Time Sheet").Select
ActiveSheet.ShowAllData
End Sub
[code/]

[jcranst]

And how do you post code?