posso fare così:


codice:
Sub controllo()
totale = Range("F4").Value
if totale.value= 0 then
MsgBox ("Attenzione")
end if
se volessi fare un controllo per ogni cella... invece se voglio fare una cosa più generale faccio come hai scritto tu... dopo provo e poi vedo se funziona ...