Force user to enter (Year End) or (Qrt) using inputbox method

[love_guy_1977]

Hi dears,
I need your help to force users to enter one of these words only (Year End) or (Qrt) using inputbox method.

Note that user must not leave the inputbox until he/she enter one of these words.

Thanks in advance

 

[mikerickson]

How about

Dim uiValue As String
Dim strDefault As String

strDefault = "Year End"
Do
    uiValue = Application.InputBox("Enter either Year End or Quarter", Default:=strDefault, Type:=2)
    If uiValue = "False" Then Exit Sub: Rem cancel pressed

    If LCase(uiValue) = LCase(strDefault) Then Exit Do

    strDefault = IIf(strDefault = "Quarter", "Year End", "Quarter")
Loop Until LCase(uiValue) = LCase(strDefault)

MsgBox "User entered " & uiValue