So it'll add in a quote I don't need - but the IntelliSense doesn't
recognize ActiveSheet? Some programmer was paid to much to do the little
automatic things we all try to turn off, while ignoring a few more important
things, I think!

Ed

"Tom Ogilvy" wrote in message
...
when you put a string in the vbe and it does not have a closing quote, it
is
added for you. Due to word wrap, this is the case you encountered I
believe.

--
Regards,
Tom Ogilvy


"Ed" wrote in message
...
Worked perfectly, Paul! Thank you. Wonder if the extra quote had
something
to do with pasting it directly into the VBE and then taking out the line
break. This time, I pasted into Word, took out the line break, then
pasted
the single line into the module - no quotes.

Ed

"PaulD" <nospam wrote in message
...
"Ed" wrote in message
...
: Paul: Thanks for the help.
<snip
: Unfortunately, when I copy your version in, the VBE highlights TEXT
and
pops
: up an error saying "Expected end of statement"??? (I did put it all
on
one
: line.)
<snip

Interesting indeed. I tried to copy the code and got the same error.
It
appears during copy that a " is inserted when pasting (not sure why).
Make
sure you have
ws.Range("E1").Formula = "= ""AR"" & RIGHT(YEAR(B1),2) & TEXT...
and not
ws.Range("E1").Formula = "= ""AR"" & RIGHT(YEAR(B1),2) &"TEXT...

notice the quote (") after the &, make sure it is not there
Paul D