Excel VBA Макросы: Как проверить, что заполнены все указанные ячейки?

[Посетитель]

Как с помощью макроса проверить, что эти ячейки непустые: B2, B4, B6, B8?

[Администратор]

Sub Макрос()

    If WorksheetFunction.CountA(Range("B2,B4,B6,B8")) <> 4 Then
        MsgBox "Заполните все ячейки.", vbExclamation
        Exit Sub
    End If

End Sub

[Посетитель]

спасибо