s = "[A-Z][A-Z]#####[A-Z]"
for each cell in selection
if ucase(cell.Value) like s then


End if
Next

Demo'd from the immediate window:

s = "[A-Z][A-Z]#####[A-Z]"
? "AA12345B" like s
True
? "A012345B" like s
False
? "AA123456" like s
False
? "AA1234B" like s
False

--
Regards,
Tom Ogilvy


"Rich" wrote:

I need a macro to check each cell in a range to see if it fits a
certain format. Specifically the format is

LLNNNNNNL

L = letter
N = number

Is there any easy way to do this?

Thanks,
Richard