Many thanks Rowan.
A perfect solution.

Paul

-----Original Message-----
Paul

You can allow filtering on a protected sheet using the
following code:

With Worksheets("Sheet1")
.Unprotect Password:="YourPassword"
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
End If

.EnableAutoFilter = True
.Protect Password:="YourPassword", _
contents:=True, userinterfaceonly:=True
End With

Regards
Rowan
.