Найти сумму элементов матрицы X (6,6) ,расположенных на главной диагонали матрицы. Программирование в МАКРОСАХ

Неужто так сложно написать эти 9 строчек?

Sub aaa()    Set r = Range("A1:F6")    Z = r    s = 0    For i = 1 To 6        s = s + Z(i, i)    Next i    MsgBox "Сумма элементов на главной диагонали " + Str(s)End SubВо вложении - рабочая книга MS Excel 2003