Using XL2000, I'm trying to validate an InputBox entry:

Col = UCase(InputBox("Column for New Member? A or D", "COLUMN", "A"))
If Col = "" Then Exit Sub

This gives a strong enough hint to the novice user, but I want to make it
foolproof and test for "A" OR "D"

How?

--
David