Error 1004 (unable to set the hidden property of the range class)

Hi,

I am having some issues with my excel marco that was being done by another colleague of mine ...

I have attached the command for the macro,

Sub RestoreAll()
'
' RestoreAll Macro
' Macro recorded 06-01-2010 by xxx'

'
    Sheets("Projects").Protect Password:="anna", _
        UserInterFaceOnly:=True
    ActiveSheet.Protect Password:="anna", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowInsertingRows:=True, AllowDeletingRows:=True, AllowFiltering:=True
    Columns("A:AM").Select
    Selection.EntireColumn.Hidden = False
    Selection.AutoFilter Field:=3
    Range("A2").Select
End Sub

regards,
Alex