The following code shows a compile error in the line "If target = "Hold" then DoHold target"
It used to work but its some time since I've had a look at this and I'm not sure why it no longer wants to run. Should there be an "Else" or something to this effect between the two "If target = ....." ? The user will be entering either Cleared or Hold as the value
[VBA]Private Sub Worksheet_Change(ByVal target As Range)
If target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
If target.Column = 22 And target.Row > 1 Then
'Copy data to Bucket History and
' clear data from worksheet
If target = "cleared" Then DoClear target
If target = "Hold" Then DoHold target
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub[/VBA]