Just had a Homer Simpson moment. I am referencing the wrong row, row 2 and
not the filtered row. I will look at changing this.
I still need to know how to end the series macro.

Davie
"davethewelder" wrote:

Hi, I am running this macro as a filter, "Filter_Report_15", in a series of
macros but the messge box will not display. The purpose of the display is to
alert the user to update the database with the correct value.

The code is below:
Cells.Select

If Worksheets("Report 15").Range("Z2") = "Y" And Worksheets("Report
15").Range("M2") = "N" Then Reponse = MsgBox("The Subject to Arrow Assessment
checkbox has not been ticked. Please amend the Assessment in IRM", vbOKOnly)
If Response = 0 Then Call Finish

The "call Finish" takes the program to the last macro in the series
correctly and executes ok but the "Exit Sub" command only takes us back to
the next line in the "Filter_Report_15" macro. I wish this macro to end the
series.

I have tried the code below but it does not stop the series.


Windows("Report Creation.xls").Activate
Sheets("Report Creation").Select
With ActiveWorkbook
.RunAutoMacros xlAutoClose
'.Close
End With

End Sub

Any help greatly appreciated.

Davie