Alt+F11
insert->module и пишеш:


Public Function Proverka(NomerNaRed As Long) As Boolean
Proverka = Sheets("Sheet1").Cells(NomerNaRed, 1).Value = "ДА"
'колона А от 2 ред нататък
End Function

Public Function test() As String
Static ok As Boolean, i As Long
ok = True
For i = 1 To 20 'броиката можеш да си я сменяш
ok = ok And Proverka(i + 1)
Next
If ok Then
test = "da" 'възможните отговори си ги сменяй както си искаш
Else
test = "ne"
End If
End Function


После на листа дето се казва Sheet1 - в клетка А1 си пишеш:
=test1()