VBA初心者です。コンパイルエラーが出ました。助けてください！

ExcelのVBAで以下の通り打ち込んだのですが、「行ラベルが定義されていません」となってしまいコンパイルエラーとなってしまいます。
急いでおります！どなたか助けてください！お願いいたします。

Sub nibun()

Const EPS As Single = 0.000001
Dim f As Single, x As Single, a As Single
Dim b As Single, xm As Single, y As Single

a = 0
b = 2
y = Equn01(a)

label:
xm = (a + b) / 2
If (y * Equn01(xm) > 0) Then
a = xm
Else
b = xm
End If

If (b - a > EPS) Then
GoTo label1
Else
MsgBox Format(xm, "x= 0.000000")
End If

End Sub

Function Equn01(x)
Equn01 = x * (x * x - 1) - 1
End Function

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2015/11/08 22:39

単純な間違いをしているだけでは。

ラベル名が「label」と書いているのに、GoToステートメントで指定を
しているラベル名が「 label1」と余計な「1」を追加していますから。
http://excelvba.pc-users.net/fol6/6_7.html

この回答へのお礼

確かにその通りでした。
確認不足でした。申し訳ありません・・・
本当にありがとうございました。

お礼日時：2015/11/08 22:43