Como se pude detener una macro

Sería algo así:

sub ejemplo()
range("c1").select
do while activecell.value <> 0
activecell.offset(1,0).select
loop
end sub

no olvides finalizar la pregunta.

Estimado, no me resulta y mi código es el siguiente en la columna c existe una formula buscar b que trae los correos de las personas según corresponda pero la macro genera los correos inclusive cuando la columna encuentra algún cero.

Sub envío()
For i = 2 To Range("C" & Rows.Count).End(xlUp).Row
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
Set parte3 = parte1.createitem(olmailitem)
parte2.To = Range("C" & i)
parte2.Subject = "Diferencias Sucursal" + " " + Range("d" & i) + " " + Range("e" & i)
parte2.body = "Buenos Días" + Chr(13) + Chr(13) + Range("f" & i) + Chr(13) + Chr(13) + " " + Range("H" & i)
parte2.DISPLAY 'aquí puedes poner send y lo enviará directamente
Set parte1 = Nothing
Set parte2 = Nothing

Next
End Sub