Problema con macro....

[landom]

Hola a todos! tengo esta macro q transcribo:

Private Sub Worksheet_change(ByVal target As Range)
If target.Address = Range("b22") Then
ruta = Range("B7")
ejecutable = Range("B6")
uf = Range("B" & Cells.Rows.Count).End(xlUp).Row
For fil = 22 To uf
arch = Range("B" & fil) & ".swf"
arch = ruta & arch
Abrir = Shell(ejecutable & " " & arch, vbMaximizedFocus)
Next fil
End If
End Sub

en la celda B22 no le ingreso directamente el dato, lo ingreso en otra celda y esta toma el valor por formula, será eso q no lo hace andar automatico???

Que debo de cambiar en el codigo para que al ingresar el dato en la celda de ingreso, cuando esta celda B22 tome el valor, me ejecute la macro???

Por favor pido ayuda porq me esta volviendo loco jaja...ya no se q mas hacer...saludos

Fernando