Thanks for your reply.

It looks fine, but you have to test it, to see if it's ok.

The Selection.ShowAllData will only work if the range where the filter is
applied is selected, otherwise refer to the eact range.

Regards,
Per

"WH99" skrev i meddelelsen
...
Thanks for coming back so quickly.
Would the code look something like what I have below?

Option Explicit

Private Sub CommandButton1_Click()
Sheet1.Unprotect
Selection.ShowAllData
Selection.AutoFilter
Range("A1").Select
Sheet1.Protect
Sheet7.Select
Worksheets("menu").CommandButton3.Visible = True
End Sub
--
WH99