Cómo agregar una imagen a una celda de excel con visual basic for application (VBA)

Estoy buscando como insertar una imagen en una celda y que al grabar el documento, la imagen quede en el libro.

Grabe una macro y busque por internet y el código que obtuve fue este:

ActiveSheet. Pictures.Insert(nombreImagen).Select

Al abrir el libro que contiene imágenes insertadas con este método, si no está la imagen original el libro muestra una X.

¿Cómo hago para que al insertar imágenes con este código, la imagen quede embedida en el documento?