On Tue, 09 Sep 2008 07:24:15 -0400, Ron Rosenfeld
wrote:

lWeekday = WorksheetFunction.Match(.Value,
Range(Mid(.Validation.Formula1, 2)), 0)

The above line may be word-wrapped inappropriately on your reader (it is on
mine). It should be all one line.
--ron