Создание кроссворда на VBA

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

необходимо сосдать красворд, на раабочем листе 1 разместить ячейки с вопросами это я сделала, проверка правильных ответов выполняется по нажатию на кнопку "проверка". повторный щелчёк по данной кнопке не допускается. количество правильно угаданных слов выводитсяс помощью диалогового окна. правильно угаданные слова должны оставаться на листе. после закрытия рабочей книги содержимое крассворда удаляется. как вот это можно сделать.

Решение задачи: «Создание кроссворда на VBA»

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

                            Sub ответ()
Dim SLOV(1 To 10)
Dim SL(1 To 10)
SLOV(1) = Range(Cells(6, 4), Cells(12, 4)).Value
SLOV(2) = Range(Cells(10, 2), Cells(10, 7)).Value
For i = 1 To 2
Select Case i
    Case 1, 4, 7, 8 'если вертикальное слово
        For c = 1 To UBound(SLOV(i))
        SL(i) = SL(i) & SLOV(i)(c, 1)
        Next c
    Case Else '
    Dim S()
        For c = 1 To UBound(SLOV(i), 2)
        SL(i) = SL(i) & SLOV(i)(1, c)
        Next c
    End Select
Next i
MsgBox SL(1)
MsgBox SL(2)
End Sub
                        