Is there a VBA error message that allows code to continue executing?

[RockandGrohl]

I'm creating an automated sheet for a rather rude colleague and as a bit of fun I've made it so if she types an incorrect value in a table, the table then flashes red and blue like police lights, I want to have a pop-up box that informs her the value is incorrect but the issue is this interrupts the police lights... Can I get the police lights to flash indefinitely until she presses "OK" on the pop-up? Thanks

ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark2"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark3"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark2"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark3"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark2"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark3"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark2"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark3"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark2"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark3"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark2"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark3"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark2"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark3"
Application.Wait (Now + TimeValue("00:00:01"))


Also, is there any way to get these to be faster than a second between flashes? 0.5 seconds would be ideal

 

[Wanderer_geologist]

Msgbox wont' allow it, I think that you if you tie the code to an Userform, (with modal set as false), you will need however to run a validation macro on the background at all time to trigger this event.