# Macro Stopped Working Without Explanation

#### rob51852

##### Board Regular
Hello guys

I have used a spreadsheet with the following code for a while but it seems to have stopped working. I haven't made any other changes so I am scratching my head. Can anyone see what is wrong?

Thank you

Code:
``````Private Sub Worksheet_Change(ByVal Target As Range)Application.ScreenUpdating = False
Dim rng As Range
Set rng = Application.Union(Worksheets("Market").Range("Z5"), Worksheets("Market").Range("AA5"), Worksheets("Market").Range("AC5"), Worksheets("Market").Range("Z6"), Worksheets("Market").Range("AA6"), Worksheets("Market").Range("AC6"))
If Not Intersect(Target, rng) Is Nothing Then
If Worksheets("Market").Range("Z5") = "0" And Worksheets("Market").Range("AA5") = "0" And Worksheets("Market").Range("AC5") = "Y" And Worksheets("Market").Range("Z6") = "0" And Worksheets("Market").Range("AA6") = "0" And Worksheets("Market").Range("AC6") = "N" Then Call Server1
If Worksheets("Market").Range("Z5") = "0" And Worksheets("Market").Range("AA5") = "0" And Worksheets("Market").Range("AC5") = "N" And Worksheets("Market").Range("Z6") = "0" And Worksheets("Market").Range("AA6") = "0" And Worksheets("Market").Range("AC6") = "Y" Then Call Server2
End If
Application.ScreenUpdating = True
End Sub``````

### Excel Facts

Convert text numbers to real numbers
Select a column containing text numbers. Press Alt+D E F to quickly convert text to numbers. Faster than "Convert to Number"

#### James006

##### Well-known Member
Hello,

It might just be ... your event macros got stuck ...

Just close your file and close Excel ...

Then re-open ... and test ...

HTH

Replies
3
Views
31
Replies
1
Views
43
Replies
2
Views
174
Replies
0
Views
119
Replies
1
Views
59