【エクセルマクロ】指定の日付範囲に色付け ガンチャート

Sub 開始日から終了日までセル塗りつぶし()

Dim s As String
Dim e As String
Dim i As Long
Dim j As Long
Dim LastRow As Long
Dim LastClm As Long

    '最終行
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '最終列
    LastClm = Cells(2, Columns.Count).End(xlToLeft).Column

    '3～最終行までループ
    For i = 3 To LastRow

        '「開始日」
        s = Cells(i, 2)

        '「終了日」
        e = Cells(i, 3)

        'D～最終列までループ
        For j = 4 To LastClm

            '2行目が 「開始日」～「終了日」に当てはまる場合
            If Cells(2, j) >= s And Cells(2, j) <= e Then

                '該当日に色付け
                Cells(i, j).Interior.Color = 65535
            End If
        Next j
    Next i

End Sub