HACK: I am using input boxes
Code:
        Vendor = InputBox("Select all vendors, [Y] or [N]?", , "Y")
        If Trim(Vendor) = "" Then Exit Sub
        Vendor = Vendor.ToUpper
Shaggy: I bow to your knowledge, as it far exceeds mine. I will try to understand what you just said. :-)