One way:


Dim vResponse As Variant
Do
vResponse = LCase(Application.InputBox( _
Prompt:="Enter 'a' or 'b'", _
Default:="a", _
Title:="Choice", _
Type:=2))
If vResponse = False Then Exit Sub 'User Cancelled
Loop Until vResponse = "a" Or vResponse = "b"




In article .com,
wrote:

Hi,

I'm trying to get my macro make a message come up and ask the customer
to choose company a or b. Then based on the result, i can open the
correct file.

I'm great at Excel, but this VB code has me stumped. Any help would be
appreciated. Other than that I'll have to make two separate macros.

Thanks,

Michele