I have a program (see program below) that sometimes takes several minutes to
run .
I wonder if there is any way to speed up the program.
Thanks in advance.
Maperalia
Option Explicit
Sub OpenReport()
Dim wordApp As Object
Dim fNameAndPath As String
Dim Filename As String
Dim sPath As String
Dim WO As String
Dim Progname As String
Dim myDateTime As String
Application.ScreenUpdating = False
WO = Worksheets("Template").Range("A1")
myDateTime = Format(Worksheets("Template").Range("A2").Value, "yyyymmdd")
Filename = "" & WO & "_M_" & myDateTime & ""
Dim sDocName As String
sDocName = Replace(sPath, ".xls", ".doc")
fNameAndPath = "S:\Test\" & Filename & ".doc"
Set wordApp = CreateObject("Word.Application")
wordApp.Documents.Open (fNameAndPath)
wordApp.Visible = True
wordApp.Activate
End Sub
Bookmarks