iButton lässt sich nicht definieren

Sub CommandButton1_Click()
Dim i As Variant
i = InputBox("Bitte die Auftragsnummer vollst?ndig angeben. (D1A012345)", "Auftrag ?")
If i = "" Then Exit Sub
Cells(Range("A2").End(xlDown).Row + 1, 1).Select
Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = i
Call CommandButton1_Click2
End Sub
Sub CommandButton1_Click2()
Dim i As Variant
Dim iButton As Integer
i = InputBox("Was war der Grund f?r den Ausschuss ?", "Problemursache ?")
If i = "" Then iButton = MsgBox("wollen sie wirklich abbrechen ?", vbYesNo) Else
If i  "" Then ActiveCell.Offset(0, 1) = i
If iButton = vbYes Then
ActiveCell.EntireRow.Delete
Exit Sub
If iButton = vbNo Then
Call CommandButton1_Click2
End If
End If
Call CommandButton1_Click3
End Sub
Sub CommandButton1_Click3()
Dim i As Variant
i = InputBox("Was wurde unternommen?", "Kurzfristige Ma?nahme ?")
If i = "" Then Exit Sub
ActiveCell.Offset(0, 2) = i
Call CommandButton1_Click4
End Sub
Sub CommandButton1_Click4()
Dim i As Variant
i = InputBox("Was ist noch zu tun ?", "Nachgelagerte Ma?nhamen ?")
If i = "" Then Exit Sub
ActiveCell.Offset(0, 3) = i
Call CommandButton1_Click5
End Sub
Sub CommandButton1_Click5()
Dim i As Variant
i = InputBox("Bitte deinen Namen eintragen ?", "Name ?")
If i = "" Then Exit Sub
ActiveCell.Offset(0, 4) = i
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then
Target.Offset(0, 5).ClearContents
Else:
Target.Offset(0, 5) = CDate(Format(Now, "dd.mm.yyyy"))
End If
End Sub