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
"Curt" <(E-Mail Removed)> wrote in message
news:577D81B4-E5FA-4F39-89FC-(E-Mail Removed)...
> 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
|
