Extraer datos con rango de fechas de otro libro en red

[rapo12]

Buenas:

Resulta que tengo un libro que es el principal que al ingresar en M5 una fecha Ej 04-02-2013 en el libro Principal y me toma solo el año y se va a buscar el libro 2013.xlsx a la ruta indicada quiero que en el momento que abra el libro 2013.xlsx me filtre los datos desde el 01-02-2013 hasta 28-02-2013 que estan en la hoja1 y los copie en la hoja12 que se llama Base datos del Libro Principal con los datos ya filtrados..

Libro en red 2013.xlsx

Hoja1

A1 B1

01-01-2013 1

...

15-01-2013 2

...

31-01-2013 3

01-02.2013 4

02-02-2013 2

...

28-02-2013 1

y asi va creciendo

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim l1 As Worksheet

Application.ScreenUpdating = False

On Error GoTo x

Dim formato

Dim fecha

Application.DisplayAlerts = False

ChDir "\\ newton\users \ 9Produc \ Caracterizaciones\"

If Target.Text = "" Then Exit Sub

formato = Format(Range("M5"), "yyyy")

Workbooks.Open ("\\ newton\users \ 9Produc \ Caracterizaciones \ " & formato & ".xlsx")

Application.DisplayAlerts = True

ActiveWorkbook.Save

ActiveWorkbook.Close

Hoja13.Select

Exit Sub x:

fecha = Range("M5").Value

MsgBox "Por el momento no existen datos manuales con Fecha ( " & fecha & " ) ", 64, "Información"

End Sub

Por favor

Gracias