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

Oh. Try this then.

Sub Test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ws.Cells.Font.Color = vbBlack
Next ws

End Sub