Why does this simple code not work?

[Smokin Joe]

My code reads as follows:

Option Explicit

Dim wb1 As Workbook
Dim ws1 As Worksheet

Private Sub Worksheet_Change(ByVal Target As Range)
' Only process whole updates
If Target.Columns.Count <> 16 Then Exit Sub

' Set-up workbook variables
Set wb1 = ThisWorkbook
Set ws1 = wb1.Sheets("Sheet1")

' Stop any further updates until we have completed
Application.EnableEvents = False

' Check for "CANCELLED" in cell T5
If ws1.Range("T5").Value = "CANCELLED" Then
' Clear bet references
ws1.Range("T5:W5").ClearContents
End If

' Re-enable updates
Application.EnableEvents = True
End Sub



T5 currently reads "CANCELLED" yet T5:W5 have not been cleared.
The worksheet is named Sheet1.
The spreadsheet is still updating as the clock is still counting down.

Any ideas what is wrong?

[Smokin Joe]

I restarted my PC and it worked (as I knew it should have done!!!)

Strange................

[PeteB]

Put a breakpoint on the line
If ws1.Range("T5").Value = "CANCELLED" Then

and then see what happens - you'll be able to see if this code is being called, and if it is, what the value of ws1.Range("T5").Value is at this point

It may be that you should be testing ws1.Range("T5").Value2 rather than ws1.Range("T5").Value - or it may be that you need to make the strings the same length before testing - something like:
If left(ws1.Range("T5").Value, 10) = "CANCELLED" Then

But the breakpoint should give you the answer pretty quickly anyway

[PeteB]

Ok good news

[Smokin Joe]

I am learning!!!!

The reason for the code not working is that I was amending the code at it would appear that I need to see application.enableevents = false before I perform any code changes.

Still we live and learn

Apologies for my ramblings.

[Smokin Joe]

Thanks for your input Pete.