Excel VBA – поиск по списку и всплывающее сообщение

Я хотел бы попросить некоторую помощь в отношении следующей проблемы: у меня есть книга с двумя листами. Лист 2 содержит 2 списка с фразами в них, а в Листе 1 приведены некоторые данные. Я хочу создать макрос, который проверяет данные в Листе 1, и если он найдет фразу, которая не отображается в списках в Листе 2, она выдает всплывающее сообщение. Кроме того, в Листе 1 будут содержаться фразы, разделенные запятыми. Можно ли также проверить это? (см. скриншот) Хотя это действительно просто, я разработал следующее, однако, я уверен, что ответ более сложный. Любая помощь приветствуется! Заранее спасибо!

Лист 1 с данными

Лист 2 со списками фраз

Мой код:

Sub check() For i = 2 To 2 If Cells(i, "A") <> Worksheets("Sheet2").Cells(i, "B") Then MsgBox "Phrase 1 does not match" End If For j = 2 To 2 If Cells(j, "B") <> Worksheets("Sheet2").Cells(j, "C") Then MsgBox "Phrase 2 does not match" End If Next j Next i End Sub 

Код VBA должен выглядеть так:

 For all cells in column 'Phase 1' Use the SPLIT() function to split the comma separated values and store them into a list of distinct values For all distinct values in the list Use the VLOOKUP function on the 'Phrase list 1' column in sheet2, searching for the current value If vlookup returns a valid result then do nothing else pop up message end if end loop of distinct values end loop of cells in column 'Phase 1' 
Давайте будем гением компьютера.