Two Variables' For Next Loop to Color 4 Contiguous Cells

[Hmerman]

Hello,
Hope you are well.

I am trying to colour four contiguous cells to a certain colour using two variables in a for Next Loop using the Offset statement. The flaw in my code is it only colours three contiguously, but not the fourth.

My code:
<code>
For x = 0 To 1

For y = 0 To 1
​

ActiveCell.Offset(x, y).Select
​

With Selection.Interior

.Pattern = xlSolid​

.PatternColorIndex = xlAutomatic​

.Color = 6724095​

.TintAndShade = 0​

.PatternTintAndShade = 0
​

End With

Next y​

Next x
​

</code>

Can someone please assist or give advice to colour the 4 contiguously?

Regards,
Herman

 

[Fluff]

You don't need to use a loop, you can simply do

With ActiveCell.Resize(2, 2).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 6724095
.TintAndShade = 0
.PatternTintAndShade = 0
End With

 

[Hmerman]

Excellent! A very concise answer.

Thank you Fluff.

 

[Fluff]

Glad to help & thanks for the feedback