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