EXCEL表格中VB问题

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 28 Then
If Target.Row >= 3 And Target.Row <= 1610 Then
If Application.WorksheetFunction.IsNumber(Target.Value) Then
Dim s() As String, n As Integer
s = Split(Target.Validation.Formula1, ",")
n = UBound(s)
If Target.Value <= n Then
Target.Value = s(Target.Value)
Else
Target.Value = "No Exsist!"
End If
End If
End If
End If
End Sub
最好 把数据有效性的错误提示关掉