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