Sub Check_Macro()
Select Case Range("L53").Value
Case Is < 1: Call Stock_Entry
Case Is = 1: Call Copy_Across
End Select
End Sub

--
Dianne

In ,
Paul Moles typed:
I am trying to get a macro to “branch” based
upon the
value in a given cell of the worksheet.

Basically if the cell value is zero then the macro should
stop and inform the user with a message box. So the error
can be corrected.

If the cell value is above zero then a longer much more
complete macro should run.(Called Copy_Across which for
simplicity I have paraphrased here)

Any help appreciated.
Paul

Sub Check_Macro()
'
'Check to see closing stock has been entered

If (L53 < 1) Then GoSub Stock_Entry
If (L53 1) Then GoSub Copy_Across
End Sub

Sub Stock_Entry()

MsgBox "No Closing Stock Entered Sunday"
End Sub

Sub Copy_Across()

Application.Goto Reference:="Date_Sheet2"
MsgBox "Ok This Time"

End Sub