Thanks Dave,
I tried the code with minor changes (Sheet1 to Lists) and ...If
LCase(myCell.Value) = "y" Then... to "Y".

I placed the code in the "Lists" sheet.

After compiling and saving I thought this would create a WorkBook
range name "ListRec". I added =ListRec to a cell data validation to
test and received the Error "A named range you specified cannot be
found" when OKing the change.

Not sure what I did wrong. Any ideas so I can test this process??

Dennis