Insertar Imagen "Macro Excel"

Tengo esta Macro, buscando y modificando llegue a esto:
Sub Abrir()
On Error GoTo x
Dim strArchivo$
strArchivo$ = _Application.GetOpenFilename("Fotografias (*.jpg), *.jpg")
'Workbooks.Open Filename:=strArchivo$
    Range("B2").Select
     ActiveSheet.Pictures.Insert Filename.Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 257.25
    Selection.ShapeRange.Width = 192.75
    Selection.ShapeRange.Rotation = 0#
MsgBox "Operacion realizada"
Exit Sub
x:
MsgBox "Operacion cancelada"
End Sub
con ella, busco una imagen en un Directorio cualquiera, pero no puedo insertar la imagen seleccionada en la hoja excel con la instrucción:
 ActiveSheet.Pictures.Insert Filename.Select