Hello All, I hope someone is still active despite the weekend...

I get a error message " The argument is not "free of choice" (or what it
will be like in an english version) and the .Intersect. command highlighted.
(sorry about the double "not" in sentence "Not .. Is Nothing...)

Here is a extract of the code:

Private Sub Worksheet_Change(ByVal Target As Range)
....
ActRow = Target.Row
ActCol = Target.Column
If Not ActiveSheet.Intersect.Range("A6:A25, A29:A48, A52:A94") Is
Nothing Then ' HERE !!!
If Application.Range(Cells(ActRow, ActCol)).Value = "" Then
If Application.Range(Cells(ActRow, ActCol + 1)).Value = "" Then
End If
If Application.Range(Cells(ActRow, ActCol + 1)).Value < "" Then
MsgBox "DuhmDiduhm DaDiDo"
End If
End If
If Not Application.Intersect.Range("B6:B25, B29:B48, B52:B94") Is
Nothing Then
If Application.Range(Cells(ActRow, ActCol)).Value = "" Then
If Application.Range(Cells(ActRow, ActCol - 1)).Value = "" Then
End If
If Application.Range(Cells(ActRow, ActCol - 1)).Value < "" Then
Application.Range(Cells(ActRow, ActCol - 1)).Value = 0
End If

Any suggestions? What is wrong with Intersect syntax?

/regards