Помогите с макросом vba на проверку соответствия столбцов, псевдокод прилагается.

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

у меня есть список названий столбцов и файл excel. нужен макрос vba,который проверяет соответствие названий столбцов(они фиксированы и вбиваются вручную 1 раз в коде vba) и столбцы, которые находятся в файле excel. Если соответствующие столбцы не совпадают, то тот заголовок столбца в файле выделять красным цветом иначе ничего не делать. если количество столбцов в файле и списке не совпадает, то выдавать сообщение об ошибке и прервать выполнение в самом начале. Если количество совпадает, то выполнять ранее описанный алгоритм.

Решение задачи: «Помогите с макросом vba на проверку соответствия столбцов, псевдокод прилагается.»

textual
                            Листинг программы 
                        

                            Sub Prov()
Dim k(), i As Integer
k = Array("Материал", "З-д", "Код", "№ ЭлППМ")
If UBound(k) + 1 <> Range("A1").End(xlToRight).Column Then
MsgBox "Количество столбцов не совпадает с шаблоном", vbCritical
Else
  For i = 1 To Range("A1").End(xlToRight).Column
    If k(i - 1) <> Cells(1, i) Then
    MsgBox "Ошибка", vbCritical
    Next
End If
End Sub

                        