Seleccionar foto y pegarla en una cuadro de imagen de un formulario y pegarla en la hoja corespondie

hola buen dia
un favor esperando me puedan apoyar
tengo un formulario donde lleno los datos y los cargo a una hoja de mi libro
en mi formulario tengo nombre edad sexo etc. Y agregue un botón donde selecciono la foto lo que necesito es que la foto que seleccione me la mande al cuadro de imagen para que la pueda ver y esa misma foto la pueda pasar a la hoja correspondiente
como se supone que al llenar el registro seria un empleado nuevo me creara una hoja nueva que tendrá el nombre dela persona por lo menos 1 nombre_apellido y en esa hoja pegara la foto.
espero haberme explicado un poco mi código para seleccionar la foto y pegarla es el siguiente
Sub cargar_foto() ' Dim ruta As String ruta = Application.GetOpenFilename
On Error Resume Next
With Selection.ShapeRange.Fill
.Visible = msoTrue
.UserPicture ruta
.TextureTile = msoFalse
End With End Sub