This code is supposed to be better
Function XCall(S, q, r, SDiv As Range, multifly, T As Single, xRange As Range, OptQnt)
Counter1 = 0
XCall = 0
For x = 1 To xRange.Rows.Count
d1 = (Log(S / xRange.Cells(x)) + (r - q + 0.5 * SDiv.Cells(x) * SDiv.Cells(x)) *...