excel - セルに入力ボックスのテキストが表示されない

Question

次のコードには何か問題があります。ユーザーが range に値 9 または 10 を入力すると、InputBox が正しく表示されますJ1:J503が、意図したように InputBox の出力が列 L に表示されません。なんで？

Private Sub Worksheet_Change(ByVal Target As Range)

Dim vrange As Range, cell As Range
  Dim TheAnswer$
  Set vrange = Range("J1:J503")
  If Intersect(vrange, Target) Is Nothing Then Exit Sub
  For Each cell In Intersect(vrange, Target)
     If cell.Value = 9 Or cell.Value = 10 Then
        Target.Offset(0, 2).Select
        TheAnswer = InputBox("Please put comments", "Comments required for option 9 and 10")
     End If
  Next cell
End Sub