Drop Down List hyperlink to sheets in another workbook

I already try and I understand that code. but when i double click at the number, the vba appear this and highlight the "Sheetlist":

Sheets("Sheetlist").Select
Range("A1").Select

For i = 1 To Workbooks("Stock Cabinet.xls").Worksheets.Count
   ActiveCell.Value = ActiveWorkbook.Worksheets(i).Name
   ActiveCell.Offset(1, 0).Select
Next

Why does this happen?