I have the routine below in many spreadsheets and it has worked for a
long time up until now. When I run this macro now, I get a message as
follows:

"Code execution has been interrupted" and the options are Continue,
end, or debug. Pushing continue makes it continue until it encounters
the next Do While portion. What gives?

I've never had this before with the "Continue" option. If I choose
debug, it highlights the Loop While lines.



Sub Date_Prompt()

Do
prmo = Application.InputBox("Enter Production Month" & _
" Between 1 and 12 Inclusive)", Type:=1)

Loop While prmo < 1 Or prmo 12
Do
pryr = Application.InputBox("Enter Production Year" & _
"Between 2000 and 2021 Inclusive)", Type:=1)
Loop While pryr < 2000 Or pryr 2021
Range("prmo").Value = prmo
Range("pryr").Value = pryr
End Sub