At its simplest from a coding point of view you could try something like:
Sub blah()
  For Each sht In Sheets
    sht.Activate
    CellColorsToChart
  Next sht
End Sub