That's the ticket, thanks very much Tom and Dave.

"Dave Peterson" wrote:

Try:

if Lcase(ActiveWorkbook.Name) = ....