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