These worked for me:

If you've already selected the range  on the sheet with xldown:

ActiveWorkbook.Names.Add Name:="Sheet_Name_List", RefersTo:=Selection


but you don't need to select  the whole range, just the topmost cell:

ActiveWorkbook.Names.Add Name:="Sheet_Name_List",
RefersTo:=Range(Selection, Selection.End(xlDown))