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

Hi
this looks like a wrong syntac. I assume you want to test if the
changed range target is within A1:A25, A29:A48 or A52:A94

try something like the following:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim test_range
set
test_range=union(me.range("A1:A25"),me.range("A29: A45"),me.range("A52:A
94"))
if not intersect(target,test_range) is nothing then
'now your code
end sub


--
Regards
Frank Kabel
Frankfurt, Germany


Imbecill wrote:
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

If Not Intersect(Target,me.Range("A6:A25, A29:A48, A52:A94")) Is _
Nothing Then

If Not Intersect(Target,Range("B6:B25, B29:B48, B52:B94")) Is _
Nothing Then


--
Regards,
Tom Ogilvy

"Imbecill" wrote in message
...
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