I've solved my main issue now. Thanks for everyone's help and
comments. I was able to use ".Formula", and the substitute function to
do it. See below for my solution:

bRange = aRange.Formula
bRange = WorksheetFunction.Substitute(bRange, "=", "")
Range(Addr1).Interior.ColorIndex = cRange.Interior.ColorIndex

Best regards,
John