D
davethewelder
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
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