The simplest way to run the code on workbook open is to go to the VB Editor, double click on ThisWorkBook and paste in.

Sub ApplyLookup()
CreateList "Sheet1", "B2", Range("Lookup_List")
End Sub
With the appropriate sheet name, cell name and Lookup_List name.