Print filter criteria in page header

[jds217]

I have a large spreadsheet of book titles, each of which is included on the book lists of one or more schools.

So the format of my data is roughly:
Col A -- book title
Col B -- author
etc., then
Col G -- school #1 (with an 'x' if the title is on that list)
Col H -- school #2
etc.

Using autofilter, I filter the lists so I get only the titles for school A, B, or A & B, etc.

Then I print out the list of that subset, with just the book title, author, etc. columns (not the many school columns)

What I want to be able to do is have the filter criteria appear in the header on the printed page, so I know WHICH school's list I'm printing.

I realize I could just manually change the header each time I print, but this is something dynamic we're doing on the fly for library patrons, and I need to make it easy and automatic.

Thanks for any help you can provide!

John

 

[mdmackillop]

Something like

Sub FilterHead()
    Dim Filt As String
    Filt = InputBox("Enter filter")
    Columns("A:H").AutoFilter Field:=2, Criteria1:=Filt
    ActiveSheet.PageSetup.LeftHeader = Filt
End Sub

 

[jds217]

thank you...need a little more clairification

Thank you for that...I'm relatively a novice at entering code...WHERE do I put that code in Excel?

Thanks!

John