How to filter on readonly workbooks

Hi Wrathastorm,

If you use a form button and mount the following macro on it (Obviously change the criteria etc. to what you want it to be) then you can advanced filter using that button and an input field for the document.

Sub AdvancedFilter()

    Range("A:AB").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A1:AB2"), Unique:=False
    ActiveWindow.SmallScroll Down:=-18
    ActiveWindow.ScrollRow = 105
End Sub

Regards

Danny

Cheers everybody
Sorry for the delay replying, sorted now thanks