ejecutar macro al cambiar de celda

[suprempada]

he aqui el codigo:

Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Call limpia_posiciona

'Worksheets(1).Activate

Range("A10").Activate

valor = ActiveCell.Value

While Mid(ActiveCell.Value, 1, 2) <> ""

Select Case Mid(ActiveCell.Value, 1, 2)

Case "AG":
Selection.EntireRow.Copy
Worksheets("Aguascalientes").Activate
'ActiveCell.Value = valor
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
Case "BC":
Selection.EntireRow.Copy
Worksheets("Tijuana").Activate
'ActiveCell.Value = valor
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select

Case "ME":
Selection.EntireRow.Copy
Worksheets("Mexicali").Activate
'ActiveCell.Value = valor
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select

End Select

Worksheets(1).Activate
ActiveCell.Offset(1, 0).Range("A1").Select
valor = ActiveCell.Value

Wend

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub



y entonces... cada vez que cambio de celda no pasa nada..... que podra ser??? que estare poniendo mal????