Stop Message Box looping when OK is selected

[connieb]

Hi, I have set up a message box to come up under a certain condition, but when I click the OK button it keeps appearing. I'm pretty sure it's because the focus is set to a value in a listbox, which is what invokes the message box, and each time I click OK this behaviour repeats, resulting in the message box looping. I'm a beginner to all of this, I'll attach the document. The code in question is in Sheet1 (BM) and the segment of code is within this as follows:

If Me.ListBox1.Value = "AFW" And Cells(1, i) <> "AFW" Then
MsgBox "No specific tests have been created for this wizard, please update the script"
Else

'hide and exclude column
Columns(i).Hidden = True
Cells(4, i) = "x"

Excuse the messiness of the code, as I said I'm new to this and just want to get it working for the moment.

Thanks so muchBM - All Wizard Ribbons_v3.xlsm

[rylo]

Hi

It keeps coming up as it is processing every column from 4 to nEndCl (currently 79) so it is doing exactly what you have told it to do ie put out the message if the value in D1, E1, F1 etc doesn't match the value selected from the listbox.

Exactly what is it you want to do when you select an item from the listbox?

rylo

[connieb]

Good question, I was looking at the big picture. I just needed an end statement after the msgbox appeared. Thanks for your help