Foro de Ayuda Excel

Hola amigos, estoy insertandome en el mundo de las macros y me ha sido de mucha utilidad...
estoy trabajando una macro muy sencilla, la idea es ejecutar una macro al cambiar un valor (validado por la opción "validacion de datos")
me aparece el siguiente error:

Microsoft Visual Basic
Se ha producido el error '13' en tiempo de ejecución:
No coinciden los tipos

las macros son las siguientes:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells = Range("E1") Then
Call Filtro
End If
End Sub

------------------------------------------
'Macro Filtro
Sub filtro()
vUsuario = Range("E1")
Select Case vUsuario
Case "2007"
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Year").ClearAllFilters
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Year").CurrentPage = _
"2007"

Case "2008"
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Year").ClearAllFilters
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Year").CurrentPage = _
"2008"

Case "Todos"
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Year").ClearAllFilters
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Year").CurrentPage = _
"Todos"
End Select
End Sub

pebps, qué intentas que realice el programa con la linea
Posiblemente esté ahí la incongruencia de tipos.


Saludos

__________________
Si crees que lo sabes todo sobre Excel, te equivocas.
Ayuda Excel

Esa linea que dice Proper podría ser

y entonces sería algo como


Cordial saludo