Ejecutar macro en Libro Oculto

Ejecuto automáticamente un Formulario al iniciar Excel, el Libro permanece oculto y solo se muestra el formulario. Hasta aquí todo bien pues mi formulario parece funcionar bien con todo hasta que intento pegar una imagen el mi libro, es cuando me manda error.

La imagen la inserto mediante un CommandButton con el siguiente codigo:

Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
tope = Range("A5").Top
izq = Range("A5").Left
alto = Range("A5").Height
ancho = Range("A5").Width
Workbooks("Libro1").Activate
ThisWorkbook.Sheets("Hoja3").Pictures.Insert(fichero).Select
w = Selection.Width
h = Selection.Height
MsgBox "La imagen se guardo correctamente"
Application.ScreenUpdating = True
End Sub

Y el Error que me sale es el siguiente:

¿Qué puedo hacer para corregir este error?, espero me puedan ayudar ya que llevo demasiado tiempo con este problema sin poder encontrar solución.