Hi Tom

I think I lost you in previous discussion.

However, your code for changing text on one button works great, but when
trying the code for changing 30 buttons, I get a "compile Error" in
codeline:

If not Intersect(Target.Address, Range("A2:A31)) is Nothing _
And Target.Value < "" Then

Can you help me with that, please!

//Thomas