Guardar ruta de imagen con VBA Excel

Sé que ayudaste una vez a una persona que necesitaba dejar guardada la ruta de imagen en un archivo excel insertándola a través de un formulario en excel, ¿he logrado cargar la imagen pero no he podido dejar la ruta guardada como lo puedo hacer? Estos son los códigos que he usado:

Private Sub imagenC_Click()

'buscar imagen en archivo

On Error Resume Next
    Dim fname As String
        fname = Application.GetOpenFilename(filefilter:="bitmap files (*jpg),*jpg", Title:="select image to open")
        If fname <> "" Then
        imagen1.Picture = LoadPicture("")
        imagen1.Picture = LoadPicture(fname)
        Me.Repaint
          End If