I need to fill a cell with two colors. I understand I can use Gradient.ColorStops like so

```
       With Range("B1").Interior
            .Pattern = xlPatternLinearGradient
            .Gradient.Degree = 90

            'Adjust Color Stops
                'Clear Default Color Stops
                    .Gradient.ColorStops.Clear

                'Add A Color Stop
                    With .Gradient.ColorStops.Add(0)
                        .Color = RGB(255, 0, 0)
                    End With

                'Add Another Color Stop
                    With .Gradient.ColorStops.Add(1)
                        .Color = RGB(0, 255, 0)
                    End With
        End With

```

However I need color to be defined by ColorIndex, and I need a clear cut between the two colors. So it will look like this but in one cell. Is that possible?

[![enter image description here](https://i.stack.imgur.com/HKH1s.jpg)](https://i.stack.imgur.com/HKH1s.jpg)