Christine,

Don't feel bad - it took me forever to understand how to put together one of
these. And I am just beginning to get the hang of it.

steve

"Christine Flott" wrote in message
om...
Thanks guys. I don't know what my problem was but it got it a few
minutes later. It looks like this:

Select Case ActiveCell.Offset(0, -4).Value
Case "2002Q1"
code
code
Case "2002Q2"
code
code...
Case Else
Msgbox "Please enter date in the correct format"

etc.

Thanks again for your assistance I think I needed to give up for a
while and go back to it later.

Christine