Hi Peter,

I don't see how that suddenly addresses CF colour, it may be more flexible
but it is still cell colour.

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


""Peter Huang" [MSFT]" wrote in message
...
Hi Bob,

I think this can be adpated by add a paramater in the macro.
e.g.
Sub SumFontRed(ByVal color As Integer)
....
rg.Font.ColorIndex = color
....
End Sub


Best regards,

Perter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no
rights.