Excel VBA-我想我正在为一个单元格分配一个值，但是它不起作用

Question

行：Target（“ D12”）。Value = 10'这不会在单元格中放入任何内容。 尝试先找出最简单的方法。稍后，我希望这可以填写4列中的3列，具体取决于手动输入的内容。这将有几百行。现在我要手动输入所有内容。

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False '<--| disable events handling
    On Error GoTo ErrorHandler '<--| be sure to catch any error and enable events handling back


    Select Case Target.Column

            Case "3"
           'Me.Unprotect
            MsgBox Target.Address

           'MsgBox "Column" & Target.Cells.Column
           'boo = Target.Cells.Column + 1

           Target("D12").Value = 10
           MsgBox Target("D12").Value

            'Me.Protect

    End Select
ErrorHandler:
    Application.EnableEvents = True

End Sub