Insertar imagen en hoja excel

Utilizo la  macro adjunta para insertar una imagen escogida de alguna carpeta de mi computador, pero la instrucción ActiveSheet.Pictures.Insert Filename.Select  no funciona, ¿como lo hago?, gracias.
Sub Abrir()
   On Error GoTo x
   Dim strArchivo$
   strArchivo$ = _Application.GetOpenFilename("Fotografias (*.jpg), *.jpg")
    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

{"Lat":-29.8147373533398,"Lng":-70.91796875}