Всем привет! Вопрос такой. Есть лист (где-то около 500 строк и 50 столбцов). Половина ячеек, выделенные цветом(19 и 36) заполняются данными. Пишу макрос (удалить данные из этих ячеек). Что не так делаю, ну очень уж медленно работает...

Dim n, m As Integer
For n = 1 To 370
For m = 1 To 50
If Cells(n, m).Interior.ColorIndex = 19 Then
Cells(n, m).Select
Selection.ClearContents
End If
If Cells(n, m).Interior.ColorIndex = 36 Then
Cells(n, m).Select
Selection.ClearContents
End If
Next
Next
End If

Спасибо, а еще вопросик можно. Как сделать, чтобы в процессе работы макроса отображались часики или что-то еще, чтобы было понятно, что макрос работает.