Перебор всех ячеек в Excel VBA или VSTO 2005

Sub CheckValues1()
    Dim rwIndex As Integer
    Dim colIndex As Integer
    For rwIndex = 1 To 10
            For colIndex = 1 To 5
                If Cells(rwIndex, colIndex).Value <> 0 Then _
                    Cells(rwIndex, colIndex).Value = 0
            Next colIndex
    Next rwIndex
End Sub
Найден этот фрагмент на http://www.java2s.com/Code/VBA-Excel-Access-Word/Excel/Checksvaluesinarange10rowsby5columns.htm Он workbook кажется весьма полезным в vsto качестве функции для иллюстрации visual-basic-applications средств проверки значений vba в ячейках в упорядоченном vba-macros виде.
Просто представьте, что excel это своего рода двумерный vba-macros массив, и примените ту же vsto логику к циклу по ячейкам.