compiler error:expected end sub

[ANIL KUMAR N]

Sub LOCKED()
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Set Rng = Range("$a$1:$b$1")
If Not Application.Intersect(Target, Rng) Is Nothing Then
    Sheets("Sheet 1").Unprotect
    If IsEmpty(Target) Then
        Target.LOCKED = False
    Else
        Target.LOCKED = True
    End If
    Sheets("Sheet 1").Protect
End If
End Sub

pls fix this problem
any suggetion will be appreciated

[ANIL KUMAR N]

pl's any body can help me it is very needed to me

[twinnyfo]

Sub LOCKED() does not have an "End Sub" statement.

It looks like you are showing two subs, when there should only be one.