Макрос для Excel 2017 - VBA

Формулировка задачи:

Я еще новичок в программировании vba. Написал код, который берет диапазон ячеек и в зависимости от содержимого ячейки, красит её в нужный цвет.

                    Листинг программы
                
 
                            
                        
Sub Fill_Color(Rg As Range)  ' на вход процедуре подается параметр - диапазон ячеек
Dim cel As Range                ' рабочая переменная (которая будет пробегать по диапазону)
      For Each cel In Rg        ' цикл по всем ячейкам диапазона (у ячейки тип - тоже Range)
           v = cel.Value          ' берем значение очередной ячейки
           If IsEmpty(v) Then                    ' если ячейка пуста -
              cel.Interior.Color = QBColor(15) ' заливаем белым (код 0) [url]http://www.excelworld.ru/stuff/vba_function/color/qbcolor/25-1-0-104[/url]
           ElseIf v = 0 Then             ' если в ячейке число - 0
              cel.Interior.Color = QBColor(8) ' заливаем серым (код 8)
           ElseIf v = 1 Then             ' если в ячейке число - 1
              cel.Interior.Color = QBColor(12) ' заливаем красным (код 12)
           ElseIf v = 2 Then             ' если в ячейке число - 2
              cel.Interior.Color = QBColor(14) ' заливаем желтым (код 14)
           ElseIf v = 3 Then             ' если в ячейке число - 3
              cel.Interior.Color = QBColor(10) ' заливаем зеленым (код 10)
           Else                                       ' иначе
              cel.Interior.Color = QBColor(15) ' заливаем белым (код 15)
           End If
      Next
End Sub
 
Sub Start()
 
    Fill_Color Range("R2C2:R32C25")
 
End Sub

Но макрос не запускается, пишет application-defined or object-defined error, не могу понять в чем ошибка.

Решение задачи: «Макрос для Excel 2017»

textual
                            Листинг программы 
                        
Fill_Color Range("B2:Y32")