Hi Bob,

I have a feeling you will need to activate the autofilter.
The following snippet is from the Microsoft Help.

ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True

HTH

Steven


-----Original Message-----
i have specified a range as unlocked but when i run a
macro to copy a sheet
then protect the destination sheet the autofilter
function is disabled. can
i use a filter on an unlocked range in a protected sheet.


' unlock filter range
Range("W12:AL12").Select
Selection.Locked = False
Selection.FormulaHidden = False

' add autofilter
Range("W12:AL12").Select
Selection.AutoFilter

're protect data sheet
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True

're-protect test WB
ActiveWorkbook.Protect Structu=True, Windows:=False


.