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