[EXCELVBA]土日かどうか？

         
            dateLoop = .Range("A1")          


            '土日で色を変える
            If Weekday(dateLoop) = vbSunday Or _
              Weekday(dateLoop) = vbSaturday Then
                .Range("A2").Interior.ColorIndex = 36
            End If