Sub link()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
For a = 2 To 990
With Cells(a, 1)
.Value = "www.a.eu/test" & a
.Hyperlinks.Add Anchor:=Cells(a, 1), Address:="http://www.a.eu/test" & a & ".jpg"
End With
Next a
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With