chg by val

[Curt]

If target.column = 12 And target.Value > 0 And IsNumeric(target.Value) Then _
Call Pledge(target)
When entry is made in column 12 object is to have entry in column 16 = 0
This is called from entry in column 12 however nothing happens.

Public Sub Pledge(ByVal target As range)
Dim column As Variable
Sheets("Data").Select
If target.column = 16 Then _
target.Value = 0
End Sub

 

[Bernie Deitrick]

Curt,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 12 And _
Target.Value > 0 And _
IsNumeric(Target.Value) Then Pledge Target
End Sub
Public Sub Pledge(ByRef Target As Range)
Sheets("Data").Cells(Target.Cells(1).Row, 16).Value = 0
End Sub

HTH,
Bernie
MS Excel MVP