Ayuda con macro

Buenos días me preguntaba si me podrías ayudar con esta macro, es una macro que copia los datos de un libro a otro, el libro al que se le pasan los datos es el libro1 o sea que por defecto es le libro2 el que contiena los datos a pasar.
Mi pregunta es como hago para que en esta linea yo pueda copiar el nombre del libro con un input box y no deba de tomar por defecto el libro2
Workbooks("libro2.xlsx").Sheets("Mana_Infantil").Activate
gracias
macro
sub Copiar()
Workbooks("libro2.xlsx").Sheets("Mana_Infantil").Activate
  ActiveSheet.Range("a2:ao31000").Select
    Selection.Copy
      Workbooks("libro1.xlsm").Sheets("Mana_Infantil").Activate
        ActiveSheet.Range("a2").Select
           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub