Assuming by "an InputBox" you mean a ComboBox (from the Controls Toolbox toolbar)
that is planted directly on the sheet (as opposed to on a userform) you can set the
ListFillRange property to "Catagory" (without the quotes).
Hope it helps.
If this isn't what you've got, (or what you had in mind) then can you elaborate a bit?