'задаём размер шрифта для ... ячейки равным ...
Worksheets("Лист1").Range("b3,f11").Font.Size =  18 
'задаём цвет шрифта для ... ячейки равным ...
Worksheets("Лист1").Range("b3:f11").Font.Color = wdColorPink 'лиловый

Sub P1()
'С помощью Dim создаём массив.
'1 to - используется, чтобы элементы массива нумеравались с 1.
'По умолчанию они нумеруются с 0.
'Long - означает, что в массиве могут быть только целые числа (есть ещё дробные).
Dim Массив( 1  To  10 ) As Long
Dim i As Long
Dim Min As Long
Dim Max As Long
'For ... To ... Next - называется циклом и используется для выполнения
'одного и того же действия много раз.
'В данном случае я использую этот цикл для заполнения массива данными
'с листа Excel.
For i =  1  To  10 
    Массив(i) = Cells(i,  1 ).Value
Next i
'Помещение в переменные данных из первых элементов массива.
'В дальнейшем будем сравнивать эти числа с другими элементами.
'Если они будут меньше или больше, то будем изменять значения в переменных Min и Max.
Min = Массив( 2 )
Max = Массив( 1 )
For i =  1  To  10 
'Для определения чётности и нечётности элементов массива
'будем использовать инструмент Mod. Этот инструмент можно мысленно
'заменить знаком "/". Только результатом деления будет остаток от деления.
'Если остаток от деления на число 2 не равно нулю - значит оно делится
'с остатком и не является чётным.
'If ... Then ... End If - используется для выбора действия.
    If i Mod  2  =  0  Then
        If Массив(i) < Min Then
            Min = Массив(i)
        End If
    Else
        If Массив(i) > Max Then
            Max = Массив(i)
        End If
    End If
Next i
'MsgBox - инструмент VBA для вывода на монитор информации, находящейся в переменных.
'Знак & используется для связывания информации в одну строку; vbCr - переводит текст
'в диалоговом окне (MsgBox) - на следующую строку.
MsgBox "Min = " & Min & vbCr & "Max = " & Max
End Sub