Stop Code
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" (notmorespam) wrote in message
...
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
|