Hi Howard,

Am Mon, 25 Feb 2013 22:16:25 -0800 (PST) schrieb Howard:

ActiveWorkbook.Names.Add Name:="SName", _
RefersTo:="=(Title Generator)$B$12:$T$503"

try:
ActiveWorkbook.Names.Add Name:=SName, _
RefersTo:=Sheets("Title Generator").Range("$B$12:$T$503")


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2