the
If .InputMessage = "" Then .Delete
is only there directly after the user has been asked to enter a new 'tooltip'; if the user removes/deletes/enters a blank tooltip it deletes the entire validation in that cell.
The cell is checked earlier in the code for (not) being empty with: If Len(cll.Value) > 0 Then