Tengo la siguiente macro pero me manda error en la linea:
Sheets("Listado").Select, y no se oprque que puede ser?, lo que trato de
hacer es copiar cierto rango de un archivo que tengo. Espero que me puedan
ayudar.
Private Sub Workbook_Open()
Application.ScreenUpdating = False
'copia departamentos
Workbooks.Open Filename:="C:\Prog Planilla\Departamentos.xls"
Sheets("Listado").Select
Range("B6:C50").Select
Selection.Copy
Windows("Empleados.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("Departamentos.xls").Activate
ActiveWorkbook.Close
Sheets("Menu").Select
Application.ScreenUpdating = True
End Sub
Saludos,
Leer las respuestas