flag = false
for each cel in range("A1:D3")
　　flag = flag or (val(cel.value) <> 0)
next
if flag then
　　処理
end if