Private Sub Worksheet_Change(ByVal Target As Range)
rksl = 0: cksl = 0
If Target.Count > 1 Then Exit Sub
If Range("k6") = "入库" Then
Target.Column = 8 ‘在这一行中断，中断时系统选中了COLUMN
    rk = 1: ck = 0: rksl = Cells(Target.Row, 6)
ElseIf Range("k6") = "出库" Then
Target.Column = 8
    ck = 1: rk = 0: cksl = Cells(Target.Row, 6)
Else
    Exit Sub
End If
    aa = Target.Text 
    wl = Cells(Target.Row, 4)
    Call yy
Sheet1.Activate
End Sub

请帮忙修改一下这个程序错在哪？为什么会出现对话框，说编辑错误：错误的参数号或无效的属性赋值，另附上附件，请帮忙修改