Help needed - worksheet_change event triggering macro twice

[GopherUK]

Hi,

I am looking for some help here as I am kinda stumped as to what is causing the problem here.

I am using 2007 and I have several sheets with tables in the. In the last field in each table, there is a drop-down list to select how the information in that row will be processed.

I originally used this sort of range reference: -

 if target.column = 17 And activecell.offset(0,-1) = "processrange"

Everything worked fine. However, to make things a but more accurate, I added this type of thing: -

If InRange(ActiveCell, Range("TransactionLog[REPROCESS]")) Then...

Using this function: -

Public Function InRange(Range1 As Range, Range2 As Range) As Boolean

Dim InterSectRange As Range
    Set InterSectRange = Application.Intersect(Range1, Range2)
    InRange = Not InterSectRange Is Nothing
    Set InterSectRange = Nothing
End Function

The problem now is that it is triggering the desired macro twice. Nothing else is different at all - it just simply seems to do this when the InRange function is used to identify the cell as belonging to the desired range.

Does anybody have any idea what might be causing this?

 

[dk]

Do you mean that the worksheet_change event is firing twice? If that is the case, is any of the code that is called by the worksheet_change, actually changing a cell? If that is the case then you can disable the worksheet_change procedure by using Application.EnableEvents=False but then making sure that you set it back to True afterwards.

HTH
DK

 

[GopherUK]

That seems to have sorted it. Thank you very much indeed!