vba zaznaczanie kolorem danych po przekątnej przy użyciu pętli for

Hej,
Mam utworzone dane w formie tabliczki mnożenia, obecnie mam zaznczone kolorem zewnętrzne wiersze w tym obszarze,
moje zadanie to zaznaczenie danych też w tym obszarze tylko po przekątnej , przy użyciu pętli for:/
Czy ktoś pomoże?

Sub Tab_()
Dim x As Integer
Dim y As Integer

For x = 1 To 10
For y = 1 To 10
Cells(x, y) = x * y
If (x = 1) Or (x = 10) Or (y = 1) Or (y = 10) Then
Cells(x, y).Interior.ColorIndex = 6
End If
Next y
Next x

W tym if dodaj:
OR (x=y)