If N3 is formatted as a date, it should work. If it is formatted as text then try replacing that line with

SelectCase Left(Sheets(1).Range("N3"),3)