On Tue, 27 Mar 2007 10:39:45 +0100, "Roger Govier"
wrote:

Hi

You need to stop screen updating at the start of the sub, then switch
back on at the end.

Did I put it in the anti-screene updating in the wrong place <lol

Private Sub Workbook_Open()
Dim I As Integer
Application.ScreenUpdating = False

For I = 1 To ThisWorkbook.Worksheets.Count
Worksheets(I).Activate
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect UserInterfaceOnly:=True
Next I
Sheets("LAR Stats").Select

Application.ScreenUpdating = True

End Sub

Thanks. :oD