Foro Excel

espero me ayuden.
se podra mejorar esta macro pasando mas rapido hacia el disco de 3 1/2.??

Sub copiasadiscotresymediacortediario()
' Macro grabada el 08/10/2005 por CASA
Sheets("Hoja1").Select
Application.Run "'LECTOR 3.xls'!verformatos1"
Workbooks.Add
Windows.Arrange ArrangeStyle:=xlTiled
Sheets("Hoja3").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Hoja2").Select
ActiveWindow.SelectedSheets.Delete
Windows("LECTOR 3.xls").Activate
Sheets("TIRA (DE SEMANA 2)").Select
Sheets("TIRA (DE SEMANA 2)").Copy After:=Workbooks("Libro1").Sheets(1)
Windows("LECTOR 3.xls").Activate
Sheets("FORMATO CORTE DIARIO ").Select
Sheets("FORMATO CORTE DIARIO ").Copy After:=Workbooks("Libro1").Sheets(2)
Windows("LECTOR 3.xls").Activate
Sheets("FORMATO LIQUIDACION ").Select
Sheets("FORMATO LIQUIDACION ").Copy After:=Workbooks("Libro1").Sheets(3)
Windows("LECTOR 3.xls").Activate
Sheets("FORMATO BITACORA ").Select
Sheets("FORMATO BITACORA ").Copy After:=Workbooks("Libro1").Sheets(4)
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.TabRatio = 1
ActiveWindow.WindowState = xlMaximized
ChDir "A:\"
ActiveWorkbook.SaveAs Filename:="A:\copias.xls", FileFormat:=xlExcel9795, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("FORMATO CORTE DIARIO ").Select
Application.Run "'LECTOR 3.xls'!ocultarformatos1"
End Sub

se me olvido esto. el libro en el disco queda vinculado y pide la contraseña se puede evitar esto? ,aunque de verdad no me afecta mucho pues esto lo usare cuando nos falle la impresora de uso normal.
para llevar este disco a otra y obtener las copias nesesarias. gracias

rolo: hola
puedes mandarme alguna direccion .
como te decia algunos dias atras quiero ver, si revisas mi aplicaccion para mejorarla con las mismas instrucciones pero quiero verla con ese lenguaje profecional que solo ustedes saben ,quiero mejorarla en velocidad y prestaciones.
por tu atencion gracias.(nesesito un presupuesto).