When I try to run the code with one form I get an error message operation is not supported for this type of object
The VBA debug highlights the If statement line in the code;
If .Value .OldValue Then

So it seems there is something about the change in value it can't handle, however
the same code works Ok with most other forms I have tested it with.