Macro para insertar imagen en varias hojas a la vez

Tengo el siguiente código que permite seleccionar, redimensionar y colocar una imagen en la celda A1 de la hoja FACTURA, pero necesito que lo haga en varias hojas a la vez (FACTURA, NOTA, PRESUPUESTO, INFORME, GUIA ), el libro contiene 15 hojas. Estos son los nombre de las otras hojas: "Proveedores", "Clientes", "Compras", "Ventas", "Devoluciones", "Inventario", "Tablas", "Dashboar", "Usuarios", "Datos" son 10 (diez) y estos son los nombres donde debe aparecer la imagen: "Factura", "Nota", "Presupuesto", "informe", "Guia" son 5 (cinco). Nota: Todos los nombre de las Hojas son en Mayúsculas. Agradezco todo el apoyo que puedan prestarme.

Agradezco la ayuda que puedan prestarme.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Unprotect "123"
Sheets("FACTURA").Select
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
ActiveSheet.Unprotect "123"
tope = Range("A1").Top
izq = Range("A1").Left
alto = Range("A1").Height
ancho = Range("A1").Width
ActiveSheet.Pictures.Insert(fichero).Select
w = Selection.Width
H = Selection.Height
Selection.ShapeRange.Top = tope
Selection.ShapeRange.Left = izq
Selection.ShapeRange.Height = alto
Selection.ShapeRange.Width = ancho
ElseIf CheckBox1.Value = False Then
Call LIMPIARCHECKBOX
End If
ActiveSheet.Protect "123"
End Sub