Hola, te paso el codigo de lo que entiendo necestias.
Aclaracion: se entiende que libro2 esta abierto y solo agregas un libro nuevo (en esata caso Pedro2009.xls)
Espero te sirva
Código:
Private Sub CommandButton1_Click()
'Esto va si queres que no te aparezcan mensajes avisando que el archivo ya existe
Application.DisplayAlerts = False
'Seleccionamos el libro2
Application.Windows("Libro2").Activate
'Le pasamos los valores de los TextBox
Range("A1") = UserForm1.TextBox1
Range("A2") = UserForm1.TextBox2
'agregamos un libro nuevo
Workbooks.Add
'Lo grabamos con el nombre de los 2 TextBox
ActiveWorkbook.SaveAs Filename:="C:\" & UserForm1.TextBox1 & UserForm1.TextBox2 & ".xls"
'Volvemos a Libro1. El original
Application.Windows("Libro1").Activate
'Activamos los mensajes de alertas nuevamente ya que sino excel seguira funcionando sin avisar
Application.DisplayAlerts = True
End Sub