Changing all blue color numbers/texts to black color in cells...

Hi guys,

Please help me if anyone knows a VBA code to do this task easily.
I attached a sample and all I'm trying to do is to change all blue color fonts into black.

Thanks as always.

Brian

Thanks, but I want to apply it to whole workbook, not only column c.

JieJenn,

Thanks so much - it works perfect!

Just one more question - I realized that some of cells actually have a few different colors and using your formula - they're all changed to black color.
In the VBA code you wrote for me, is it possible to add some sort of if function, such as changing only colors in 160, 184, 214 (blue font color I'm using).
Thanks so much!

like this right?

Sub Test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Range([160,184,214]).Font.color = vbBlack
Next ws

End Sub

Originally Posted by JieJenn

Oh wait. I mis-read your post. Can you upload a sample file?

JieJenn,
I don't think I can upload sample in reply...but I actually attached the sample in my first post.
Basically, I only want certain color font to be changed to black throughout the workbook.

Thank you so much for your help!