This code does not work for me (in 2007) due to the fact that the sheet is
protected:

Sheet4.Range("AP1:AP" & LastRowNewData).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheet4.Range("A" & 48), _
Unique:=True

If I wrap it in an Unprotect/Protect set, as below, it works fine. Try this
before continuing to investigate the mystery of the missing code.

Sheet4.Unprotect

Sheet4.Range("AP1:AP" & LastRowNewData).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheet4.Range("A" & 48), _
Unique:=True

Sheet4.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowDeletingColumns:=True, AllowDeletingRows _
:=True, AllowSorting:=True, AllowFiltering:=True

HTH,

Eric


"Isis" wrote:

I have a sheet that seems to get 'stuck' calling a block of non existent
code - it happens after I clear the sheet then click any of a number of
cells.

It has something to do with protection as it does not happen if I unprotect
the sheet - obviously noone is going to be able to pinpoint this from a
short description !

How can I find the reference to the the non existent code block in my code
- I have done a 'find' within the code but I am not seeing it ?

Any other ideas would be most welcome.

Thanks
.