Compile error

[s.booth]

Can anyone help I have the follow bit of code and kep getting the
Complile error Else without If


Private Sub completed_Click()
If IsNull(Me.followedupby.Value) = True Then MsgBox "Select Operator"
GoTo 1
1 Me.completed = 0

Else
Me.completedon = Now()
End If

 

[Mile-O]

Private Sub completed_Click()
    If IsNull(Me.followedupby.Value) = True Then 
        MsgBox "Select Operator"
        Me.completed = 0
    Else
        Me.completedon = Now()
End If