请教高手一个vba的问题

thundom1

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim RowA As Integer
Dim ColumnA As Integer

RowA = ActiveCell.Row
ColumnA = ActiveCell.Column


If Cells(RowA, ColumnA).Value = "a" Then

Cells(RowA, ColumnA).EntireRow.Interior.Color = 5910
Cells(RowA, ColumnA).Offset(rowOffset:=0, columnOffset:=1).Value = Environ("UserName")
Cells(RowA, ColumnA + 1).Activate
Exit Sub
End If
End Sub


这段代码，在workbook里面直接输入是没有任何问题的，但是每当用数据有效性输入，就会出错。

什么原因？