Stop Code

Excel Experts,

I want to stop my procedure if the first sub procedure finds a cell that is
empty. I have been able to make my code exit the first sub procedure when it
finds the empty cell, but the code then resumes with the second sub procedure.

Is there a way I can make the whole procedure stop.

My code is similar to the following:

Sub RunCheckBlankAndProcess()

CheckBlank
Process1
End Sub


Sub CheckBlank()

Set FirstRow = Cells.Find(What:="SymSide").Offset(1)

If IsEmpty(FirstRow) = True Then

Exit Sub

End If

End Sub


Sub Process1()

(Process 1 Code)
End Sub


Thanks,
Alan

--
achidsey

Sub RunCheckBlankAndProcess()

if CheckBlank Then Exit sub
Process1
End Sub


Function CheckBlank()

Set FirstRow = Cells.Find(What:="SymSide").Offset(1)

CheckBlank = IsEmpty(FirstRow)

End Function


--
Regards,
Tom Ogilvy


"achidsey" <[email protected](notmorespam)> wrote in message
news:[email protected]...
>
> Excel Experts,
>
> I want to stop my procedure if the first sub procedure finds a cell that
is
> empty. I have been able to make my code exit the first sub procedure when
it
> finds the empty cell, but the code then resumes with the second sub
procedure.
>
> Is there a way I can make the whole procedure stop.
>
> My code is similar to the following:
>
> Sub RunCheckBlankAndProcess()
>
> CheckBlank
> Process1
> End Sub
>
>
> Sub CheckBlank()
>
> Set FirstRow = Cells.Find(What:="SymSide").Offset(1)
>
> If IsEmpty(FirstRow) = True Then
>
> Exit Sub
>
> End If
>
> End Sub
>
>
> Sub Process1()
>
> (Process 1 Code)
> End Sub
>
>
> Thanks,
> Alan
>
> --
> achidsey

Tom,

Thanks for the help.

Alan
--
achidsey


"Tom Ogilvy" wrote:

> Sub RunCheckBlankAndProcess()
>
> if CheckBlank Then Exit sub
> Process1
> End Sub
>
>
> Function CheckBlank()
>
> Set FirstRow = Cells.Find(What:="SymSide").Offset(1)
>
> CheckBlank = IsEmpty(FirstRow)
>
> End Function
>
>
> --
> Regards,
> Tom Ogilvy
>
>
> "achidsey" <[email protected](notmorespam)> wrote in message
> news:[email protected]...
> >
> > Excel Experts,
> >
> > I want to stop my procedure if the first sub procedure finds a cell that
> is
> > empty. I have been able to make my code exit the first sub procedure when
> it
> > finds the empty cell, but the code then resumes with the second sub
> procedure.
> >
> > Is there a way I can make the whole procedure stop.
> >
> > My code is similar to the following:
> >
> > Sub RunCheckBlankAndProcess()
> >
> > CheckBlank
> > Process1
> > End Sub
> >
> >
> > Sub CheckBlank()
> >
> > Set FirstRow = Cells.Find(What:="SymSide").Offset(1)
> >
> > If IsEmpty(FirstRow) = True Then
> >
> > Exit Sub
> >
> > End If
> >
> > End Sub
> >
> >
> > Sub Process1()
> >
> > (Process 1 Code)
> > End Sub
> >
> >
> > Thanks,
> > Alan
> >
> > --
> > achidsey
>
>
>