VBA вывод фамилий сотрудников

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

Дана таблица, в ней найдено среднее арифметическое зарплаты работников. В меседж боксе нужно вывести Фамилии у которых зарплата меньшее среднего арифметического Код на VBA.

Решение задачи: «VBA вывод фамилий сотрудников»

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

                            Dim sum As Variant, n As Integer
Dim s As String
Sub Макрос1()
n = 10 'Количество работников по списку
sum = 0
s = ""
For i = 1 To n
sum = sum + Cells(i, 2).Value
Next
sum = sum / n
For i = 2 To 11
If Cells(i, 2).Value < sum Then
s = s & " " & Cells(i, 1).Value
End If
Next
MsgBox s
End Sub
                        