VBA showing drop down in filter

[judgejustin]

When I run this macro it is still showing the drop down box in my headers. I do not want it to. Any ideas?

Private Sub Worksheet_Activate()
   With Sheets("Statistics")
   .Unprotect "fldorcusreport"
   Me.Range("D1").AutoFilter 4, "ACTIVE", xlOr, "RESERVE", VisibleDropDown:=False

   .Protect "fldorcusreport", UserInterFaceOnly:=True
End With
End Sub

 

[Fluff]

You're welcome & thanks for the feedback.