Update links in my addin
 

I have a workbook which contains sheets of data. The data is picked up from
other workbooks and the links update without any problem. However, when I
turn my workbook into an addin the links won't update. Can anyone tell me
what's going wrong?

Private Sub Workbook_Open()
ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources
End Sub

Thanks
Rob