Microsoft Visual Basic в EXCEL выходит ошибка sub of function not defined

Sub gz()
e = 0.001
m = 100
Dim a(1 To 3, 1 To 3) As Double
Dim b(1 To 3) As Double
n = 3
For i = 1 To n
For j = 1 To n
a(i, j) = Cells(i, j)
Next j
b(i) = Cells(i, 5)
Next i
k = 0
Do
k = k + 1
g = 0: i = 1
Do
i = i + 1
s = 0
If i = 1 Then GoTo 1
j = 0
Do
j = j + 1
s = s + a(i, j) * x(j)
Loop While j < i - 1
If j = n - 1 Then GoTo 2
1: j = 1
Do
j = j + 1
s = s + a(i, j) * x(j)
Loop While j < n
2: w = (b(i) - s) / a(i, i)
d = Ads(w - x(i))
If g < d Then g = d
x(i) = w
Loop While i < n
If g < e Then GoTo 3
Loop While k < m
GoTo 4
3: For i = 1 To n
Cells(i + 4, 1) = x(1)
Next i
 
End Sub

d = Ads(w - x(i))

Sub gz()
    e = 0.001
    m = 100
    Dim a(1 To 3, 1 To 3) As Double
    Dim b(1 To 3)   As Double
    n = 3
    For i = 1 To n
        For j = 1 To n
            a(i, j) = Cells(i, j)
        Next j
        b(i) = Cells(i, 5)
    Next i
    k = 0
    Do
        k = k + 1
        g = 0: i = 1
        Do
            i = i + 1
            s = 0
            If i = 1 Then GoTo 1
            j = 0
            Do
                j = j + 1
                s = s + a(i, j) * x(j)
            Loop While j < i - 1
            If j = n - 1 Then GoTo 2
1:             j = 1
            Do
                j = j + 1
                s = s + a(i, j) * x(j)
            Loop While j < n
2:             w = (b(i) - s) / a(i, i)
            d = Abs(w - x(i))
            If g < d Then g = d
            x(i) = w
        Loop While i < n
        If g < e Then GoTo 3
    Loop While k < m
    GoTo 4
3:     For i = 1 To n
        Cells(i + 4, 1) = x(1)
    Next i
End Sub

s = s + a(i, j) * x(j)