aktivere en makro ved ændring i en celle

Spm1.
Denne makro indsættes i arkets eget kodemodul. (højreklik på en arkfane og vælg "Vis programkoder")

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E8")) Is Nothing Then Exit Sub
dubplexfilteravanced
End Sub

spm2.
Det er standard, det kan du nok ikke gøre noget ved

hvordan tildeler jeg dig point?

tak for hjælpen det virkede.

MVH
HHB

jeg skal lige smide et svar :-)

Kære Bak
udover at jeg har fået dig gode forslag til at virker på e8:e45, har jeg også behov for at får det aktiveret ved ændring i c20. d.v.s. der skal ske aktivering af makroen ved enhver ændring i cellerne: e8 til e 45 og nu også c20.
Jeg har prøvet at kopier og ændre navnet lidt, det duer ikke,
jeg har prøvet at indsætte en kopi af og indsætte c20. Det duer ej heller, så kommer den ud med navne konflikt.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E8:E45")) Is Nothing Then Exit Sub
dubplexfilteravanced2
End Sub

Men hvad gør jeg så?
Jeg er stadig usikker på hvordan jeg tildeler dig point.
yderligere 30 for denne ekstra krølle

MVH
Hans Henrik

Makroen skal lige ændres lidt og jeg sakl ikke have yderligere points :-)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rgTemp As Range
    Set rgTemp = Union(Range("C20"), Range("E8:E45"))
    If Intersect(Target, rgTemp) Is Nothing Then Exit Sub
    dubplexfilteravanced2
End Sub


i denne linie
Set rgTemp = Union(Range("C20"), Range("E8:E45"))
kan du fortsætte med at sætte flere ranges/celler på