Private Sub Workbook_Open()
Application.DisplayAlerts = false
End Sub
Sub Makro4()
NextTime = Now + TimeValue("00:00:15")
Application.OnTime NextTime, "Makro4"
ActiveWorkbook.UpdateLink Name:="VTPLUS|NTV301!1,1,,,B(14/11/20/11)", Type _
:=xlOLELinks
End Sub