Macro takes 10 seconds to run

asked 2012-09-11 19:48:44 +0200

G2007
1

updated 2013-01-31 03:34:44 +0200

qubit
5721 ● 3 ● 48 ● 41

Below is copy of macro. The 'invoice' macro takes 10 seconds to complete. The 'Save As' macro is done within a second or two. This is converted from excel sheet. If I record a macro in LibO to create the same invoice, it still takes 10 seconds to complete so I don't think language is problem. Any thoughts. Thanks

Rem # Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub Invoice()
Rem #
Rem # Invoice Macro
Rem #

Rem #
  Sheets("Sheet2").Select
  Range("A1").Select
  Selection.Copy
  Sheets("Sheet1").Select
  Range("A1").Select
  ActiveSheet.Paste
  Sheets("Sheet2").Select
  Rows("1:1").Select
  Application.CutCopyMode = False
  Selection.Delete Shift:=xlUp
  Range("A1:A2").Select
  Selection.AutoFill Destination:=Range("A1:A3"), Type:=xlFillDefault
  Range("A1:A3").Select
  Sheets("Sheet1").Select
  Range("A1").Select
End Sub

Sub SaveAs()
  ThisFile = Range("A1").Value
  ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub