[vba]

With ActiveCell

.Value = Replace(.Value, "On Hold", "")
End With
[/vba]