エクセル2007を使っています。予定表で日付と曜日の覧で曜日のセルに関数の

マクロは動的に処理するというよりは、その都度実行する使い方になります。

マクロでシート全体の"日"を赤字にするマクロは

Sub 特定の文字色の変更()
    Dim r As Range
    Dim firstAddress As String

    Set r = Cells.Find(What:="日", LookIn:=xlValues, LookAt:=xlWhole)

    If Not r Is Nothing Then
        firstAddress = r.Address
        Do
            r.Font.ColorIndex = 3
            'r.Offset(0, -1).Font.ColorIndex = 3    '例えば曜日の左が日付なら
            Set r = Cells.FindNext(r)
        Loop While Not r Is Nothing And r.Address <> firstAddress
    End If
End Sub

条件付書式はもっと簡単にできます。

Excel2007は条件付書式が機能強化されてわかりづらくなりましたが、

http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-jyosyo....

変えたい箇所を選択して、ホームタブ→条件付書式→セルの強調表示ルール→文字列を選び

日　書式：　赤の文字

とするだけです。