En als je deze Sub procedure nou óók nog in een module zet en daar een keyboard snelkoppeling aan verbindt, dan kan je de kleur zélfs oproepen zonder dat je een functie in een cel zet...
Sub ToonTekstkleur()
MsgBox "De tekstkleur in cel " & ActiveCell.Address(0, 0) & " is: " & TekstKleur(ActiveCell)
End Sub