I tried this:

ActiveWorkbook.Names.Add Name = (ws.Name & "EjectaX")
RefersTo:="OFFSET('" & ws.Name & "'!$J$1,'" & ws.Name & "'$S$2,0,'"
ws.Name & "'!$S$7-'" & ws.Name & "'!$S$2,1)"

Hoping that it would create a named range "(Worksheet)EjectaX" but
get a "Name is not valid" error when I try to run the macro

--
Message posted from http://www.ExcelForum.com