Floating Userform with ActiveCell.Formula text box

I have this user-form which shows, in a text box, the string in the selected cell. The form then allows the fonts of each character to be manipulated by selecting an option, in this case Arial, Calibri and Times New Roman.
The form is made floating by setting the property "ShowModal" to False.
It works quite well except that when I change cells, I want the value of ActiveCell.Formula in the text box to change as well.
Can't seem to attach Workbook.

Snapshot.png

FORM CODE

Please Login or Register  to view this content.

MODULE

Please Login or Register  to view this content.

It does change the value of ActiveCell.Formula in the text box ... but I can't edit the fonts within the form.

Please find attached.

It works on the first selection, but on the others, nothing happens.

Apologies, it does work. I must have done something wrong.
Much appreciate the assistance.

make a mark and see this case later