aplicalo asi:
Código:
IF Check1.Value = vbUnchecked AND Check2.Value = vbUnchecked AND Check3.Value = vbUnchecked AND Check4.Value = vbUnchecked Then
'En tu caso utilizas la Palabra No y Si
Status = 'No'
Else
Status = 'Si'
End If
ya con eso puedes hacer tu lista en tu Grilla