Hi BrianB,

Code seems OK except that we have to add the "=" to RefersTo, therefore
(partial) :-


You are right, I made a mistake.

This should do it:

Activesheet.Range(strStartOfRange & ":" &
sreEndOfRange).Name=strRangeName

Regards,

Jan Karel Pieterse
Excel MVP
www.jkp-ads.com