VBA : Change font colour within a cell up to nth character

Hello,

I have a tracker where I am trying to change the font colour in a cell up to the 10th character.

Please Login or Register  to view this content.

The code works for normal cells but the cells I would like it to work on (A3 - B50) are dates and the cell is formatted as "(mm) mmm : dd mmmm yyyy {dddd}" so when I enter "12/12/17" what is displayed is "(12) Dec : 12 December 2017 (Tuesday)". I cannot work out how to get the code to work on these cells. I think it has something to do with the actual text entered.

I have attached a copy of the sheet with an example. I want all characters up to and including the ":" to be a different colour to the rest of the cell.

Thank you.