Dim A(4, 4) As Long
Dim S As Long
Dim I As Long
Dim J As Long
For I = 1 To 3
For J = I + 1 To 4
If A(I, J) Mod 2 = 1 Then S = S + A(I, J)
Next J
Next I
