CORRECTION Sorry ...

dim NewwbName as string

Alan