How to add/copy Dynamic Named Ranges to Workbook

[oam]

modified a code I received from an earlier post from p45cal to allow me to add the Dynamic Named Range shown in this post.

Thank you for your help p45cal

 ActiveWorkbook.Names.Add Name:=cll.Value, RefersTo:="=" & cll.Offset(, 2).Value