¿Cómo copiar datos de un libro ya abierto?

Mi problema que tengo es que tengo varios botones que al dar clic en el primero me abre mis archivos de donde tomo mi información, pero como los otros botones se direccionan al mismo archivo me manda un error que dice: el archivo ya esta abierto......

Sub Autoforma6_AlHacerClic()
Dim valor As String
Selection.Copy
Workbooks.Open Filename:= _
"C:\Mis documentos\Paty Programas\PROGRAMACION MONTADO X BANDA 2012.xls"
valor = InputBox("Ingresa Nombre de la Hoja", "Copiado de datos")
Sheets("" + valor).Select
Range("AA5", "AF51" & fila).Copy
variable = Range("a1").End(xlDown).Row
Workbooks.Open Filename:= _
"C:\Mis documentos\Paty Programas\BdProg.xls"
Sheets("Banda4").Activate
Range("B5", "G51" & fila).PasteSpecial xlPasteAll
ActiveSheet.Paste
ActiveWindow.ActivateNext
Application.CutCopyMode = False
End Sub