Error 9 en tiempo de ejecución

[HS7]

Hola a todos,
Lo primero, decir que no tengo muchos conocimientos en el manejo de VBA. Sin embargo, por necesidad, tengo que hacer algún apaño.

Lo que estoy intentando llevar a cabo es una macro para un filtro avanzado, la cual se ejecute al cambiar el valor de una celda determinada (celda de búsqueda). La macro ha funcionado correctamente cuando la lista a filtrar esta en la misma hoja excel. Sin embargo, mi lista definitiva que quiero filtrar esta en otro archivo excel.

A la hora de ejecutar la macro me da el siguiente error: "Se ha producido el error 9 en tiempo de ejecución. Subíndice fuera del intervalo".

Mi código es el siguiente:

Código vb:

Private Sub Worksheet_Change(ByVal Target As Range)
Celda = "M1"
If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then
Macro1
End If
End Sub
 
 
Sub Macro1()
Range("M1").Select
'Selection.AutoFilter
Workbooks.Open Filename:="C:\Users\hsaaidi\Desktop\BD\BaseDatos.xls"
 
 
 
 
 
Set r = Workbooks("C:\Users\hsaaidi\Desktop\BD\BaseDatos.xls").Sheets("Lista").Range("A2:D$500")
 
r.AutoFilter Field:=1, Criteria1:="=*" & [M1] & "*", Operator:=xlAnd
End Sub
 

La línea que da el error es la de "Set r=......"

No consigo dar con la solución. Si alguien me puede ayudar, se lo agradecería.