[發問] 請各位先進指導不知錯在那

maomao

大家好,我寫下一個事件如下:
是想將在輸入第四或第六個儲存格時會自動變除以10000後再轉成整數
但實際運作輸入數字時這程式完全沒反應我試了用MsgBox("Hello!")但
也沒出現可見根本沒呼叫下列程式不知錯在那...請指導
Private Sub Worksheet_Change(ByVal Target As Range)
'MsgBox("Hello!")
With Target
     If Target.Column = 4 Or Target.Column = 6 Then
        ActiveCell.Value = Round(ActiveCell.Value / 10000)
     End If
End With
End Sub