Guardar datos en otro libro

[georgecy02]

Buenas tardes tengo la siguiente duda, tengo un formulario de tipo facturación, lo que desearia es que los datos que ingrese al formulario se almacenen en un libro diferente(1 libro especifico), gracias

- - - - - Mensaje combinado - - - - -

este es el codigo que usa para guardar en una hoja distinta, pero quisiera que lo hiciera en el libro resumen.

Private Sub guardarFactura()Dim i As Integer, Fila As Long


Sheets("facturas").Activate

For i = 0 To Me.lstCantidad.ListCount - 1

   Fila = Range("A" & Rows.Count).End(xlUp).Row + 1

   Range("A" & Fila) = Me.txtNoFactura.Text

   Range("B" & Fila) = Me.txtFecha.Text

   Range("D" & Fila) = Me.txtRazon.Text

   '

   Range("J" & Fila) = Me.txtIVA.Text

   Range("I" & Fila) = Me.txtTotal.Text

   'Range("K" & Fila) = Me.txtSubtotal.Text

   Range("C" & Fila) = Me.txtRFC.Text

   '

   Range("E" & Fila) = Me.lstDescripcion.List(i)

   Range("G" & Fila) = CCur(Me.lstPrecio.List(i))

   Range("F" & Fila) = CInt(Me.lstCantidad.List(i))

   Range("K" & Fila) = CCur(Me.txtSubtotal.Text)

   Range("H" & Fila) = CCur(Me.lstImporte.List(i))

   descontarExistencia Me.lstDescripcion.List(i), _

                       CInt((Me.lstCantidad.List(i)))

Next

    guardarFactura1

End Sub

[/CODE]