مطلوب برنامج لتنظيم الكود

مثلاً هذه المقطع :

Function SOLVED() As Boolean
SOLVED = True
Dim R, C As Byte
For R = 1 To 9
For C = 1 To 9
If (Application.Cells(R, C) = 0) Then
SOLVED = False
End If
Next C
Next R

يصبح :

Function SOLVED() As Boolean
SOLVED = True
Dim R, C As Byte
For R = 1 To 9
  For C = 1 To 9
     If (Application.Cells(R, C) = 0) Then
         SOLVED = False
      End If
  Next C
Next R
End Function