Problemas con macros en excel 2007

Tengo un problema con una macro que funciona bien con la version 2003, pero con la versiones nuevas no, la macro es la siguiente:
    Dim myfoto, myfoto2 As Range
    Set myfoto = Range("Directorio") 'Celda donde se encuentra la ruta de la carpeta a buscar
    Set myfoto2 = Range("NombrePeli") 'El nombre que se busca
    Set fs = Application.FileSearch
    If Range("v6") = 0 Then
        MsgBox ("No hay mas peliculas en la base de datos, esta es la ultima")
        Exit Sub
    End If
    '
    With fs
        .LookIn = myfoto
        .Filename = myfoto2
        If .Execute > 0 Then 'localiza el archivo
            ActiveSheet.Shapes("pepito").Select
            Selection.Delete
            Range("e3").Select
            ActiveSheet.Pictures.Insert(.FoundFiles(1)).Name = "pepito" '.FoundFiles(1)determina la ruta y el nombre del
            'archivo que se va abrir
            ActiveSheet.Shapes("pepito").Select
            Selection.ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft
            Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
        Else
            MsgBox ("La caratula " & myfoto2 & " no esta en la base de datos, o el nombre no es el correcto")
        End If
    End With
sabes donde esta el error???