Now you want to start changing colours - this is beginning to sound like you are doing the same VBA assignment as
John_4. Have a look at this thread
https://www.msofficeforums.com/word-...footnotes.html.
As per that thread, if you want something more robust and less error prone, convert to using styles to avoid the RGB number sensitivities. Record some macros of applying a style and see if you can work out how to adapt the Function so it returns the name of a style instead.