Bereik voor 'Select Case Range' bij gegevensvalidatie

[jackfish]

Beste mensen,

Ik heb gegevens gevalideerd en aan de 'cases' een macro gekoppeld. De Case Range staat op ("A1") en dan werkt het. Nu wil ik dat onderstaande code niet alleen door "A1"aangeroepen kan worden maar door alle cellen in kolom A. Ik kom er niet uit. Wie kan mij hiermee helpen? Thanks jackfish

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Select Case Range("A1")

Case "Blad1"
ActiveCell.Offset(0, 1).Select
ActiveCell.EntireRow.Select

Application.CutCopyMode = False
Selection.Cut

Sheets("Blad1").Select
Range("B65536").End(xlUp).Offset(1, -1).Select
ActiveSheet.Paste

Range("A1:A15").Select
Selection.ClearContents
Range("B65536").End(xlUp).Offset(0, 0).Select
Case "Blad2"
ActiveCell.Offset(0, 1).Select
ActiveCell.EntireRow.Select
Application.CutCopyMode = False
Selection.Cut

Sheets("Blad2").Select
Range("B65536").End(xlUp).Offset(1, -1).Select
ActiveSheet.Paste

Range("A1:A15").Select
Selection.ClearContents
Range("B65536").End(xlUp).Offset(0, 0).Select
Case "Blad3"
ActiveCell.Offset(0, 1).Select
ActiveCell.EntireRow.Select
Application.CutCopyMode = False
Selection.Cut

Sheets("Blad3").Select
Range("B65536").End(xlUp).Offset(1, -1).Select
ActiveSheet.Paste

Range("A1:A15").Select
Selection.ClearContents
Range("B65536").End(xlUp).Offset(0, 0).Select

End Select

End Sub

 

[jackfish]

Ik ga het proberen met Range("A:A")), jackfish ...