problem mit worksheet_change

folgendes problem:
wenn in tabelle1 in der range("a1:e30") die zeichenfolge "ABC" auftaucht, soll ein beep folgen.
das ganze habe ich so gelöst (folgende routine ist direkt in tabelle1):

mit dieser routine klappt es wunderbar:

~begin~
Sub test()
For i = 1 To 30
Range("a" & i) = "ABC"
Next i
End Sub
~end~

aber warum klappt es mit dieser routine nicht?
in a1 auf dem blatt2 stehen in a1 bis a30 "ABC" und dann benutze ich diese routine:

~begin~
Sub test2()
Sheets("tabelle2").Range("a1:a30").Copy
With Sheets("tabelle1").Range("a1")
.PasteSpecial xlPasteValues
End With
End Sub
~end~

vielleicht kann mir jemand weiterhelfen, warum es mit dem kopieren mehrerer zellen mit entsprechendem inhalt nicht klappt.

danke!

gruss,

marcus