Hi Folks,

I currently have a MsgBox that appears when cells in column T contains the word "Switch". If it does then the MsgBox prompts the user to make some manual changes.



  Dim Answer As Long
    If Application.CountIf(Columns("T"), "*switch*") Then
    Answer = MsgBox("The Report Shows Switches. Have you inserted cash value for the buy
    deals and changed type on the buy deals from REDS to SUBS", vbYesNo)
    If Answer = vbNo Then Exit Sub
  End If
I need this manual step as the user needs to insert cash figures in column D.

This morning the user ignored the prompt and clicked yes when they should have clicked no.

If they click yes the macro continues along it merry way doing all sorts of calculations.

I am looking for some code that, if the user clicked yes the macro would continue (as it usually does) but the first task after clicking on "Yes" would be to look at column T for the word "Purchase" and if corresponding cell in column G contains the word "REDS" then bring up another MsgBox reprimanding the user for not changing the cell in column G from "REDS" to "SUBS". When they click OK it would Exit Sub. They would then make changes and run the macro again. Hopefully with everything corrected this time allowing the full macro to finish.

I appreciate there could be some functionality to make sure that if column T contain the word "Purchase" that the corresponding cell in column G could be changed to "SUBS" automatically but things aren't quite as straightforward as I have laid out above.

Sorry if the above is not clear and thanks as always for any help.