셀에 특정 값을 입력하면 수식 없이 자동으로 계산되게 가능한가요?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        On Error Resume Next
        Application.EnableEvents = False
        Target.Value = Target.Value * 100
        Application.EnableEvents = True
    End If
End Sub