2- Bir buton ekleyin
3- Butonun tıklanma olayında Vba penceresinde şu kodu kullanın:
degistir = "<font color =""red"">" & Metin20 & "</font>"
Metin16 = Replace(Metin16, Metin20, degistir)
degistir = "<font color =""red"">" & Metin20 & "</font>"
Metin16 = Replace(Metin16, Metin20, degistir)