Macro to manually input which field (column) to autofilter on using an input prompt

Hi,

I have a worksheet that shows me items & their delivery frequency - Items are in column A and weeks across the top. Each items row has an X in the corresponding week that it needs to be delivered.
I'm trying to write a macro that copy's everything from a specific week into a new sheet, with the user inputting which week they require. I've sorted everything except the part where the user can input which weeks required. I found some code (below) that allowed the user to input the criteria of the auto filter - is there any way to do a similar thing except changing the field number - the criteria should always be X.

uiWeekToShow = Application.InputBox("Show which Week", Type:=2)
If uiWeekToShow = "False" Then Exit Sub: Rem Cancel pressed

Range("B1:BA2387").Select
Selection.AutoFilter Field:=1, Criteria1:="<>" & uiWeekToShow, Operator:=xlAnd

I hope this makes sense to someone!?

THanks
Barney.