Worksheet_Change-Ereignis

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Workbooks.Open ("C:\Test1.xls")
meldung=range("D7").value
End Sub

Funktioniert aber nicht - die Variable "meldung" hat nach Ausführen des Codes keine Daten. Testweise habe ich dann mal folgendes versucht:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Workbooks.Open ("C:\Test1.xls")
Range("D7").Select
meldung=ActiveCell.Value
End Sub

Bei diesem Makro habe ich dann herausgefunden, daß das Makro mit dem RangeSelect-Befehl Schwierigkeiten hat - er erzeugt eine Fehlermeldung.
Kann mir jemand helfen?
Danke im Voraus!
Gruß,

Peer