Zack: This is what module 9 looks like:

'
' FINAL Macro
Sub MacroConditionalRun()
Dim rngFind As Range
Set rngFind = Range("Y:Y").Find("No Error", MatchCase:=True)
If Not rngFind Is Nothing Then
'
Sheets("TX Shuttle").Select
Rows("3:3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Copy
Rows("3:6758").Select
ActiveSheet.Paste
Selection.AutoFilter Field:=1, Criteria1:="STOP"
Rows("37:37").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=1
Range("C8").Select
ActiveWindow.SmallScroll Down:=-27
Sheets("GL Entry").Select
ActiveWorkbook.Save
End If
End Sub


Remember, i want it to STOP if it sees something other than "No Error" in
column J. Also I want it to message me "Please correct ALL errors before
running final script".

Thanks so much!