Thanks Jake I d already tried that and got the error this is not a valid file path


Option Explicit

Sub openWordPlease()
' dont forget to set a ref to word object library
    Dim wordApp As Object
    Dim wordFile As Object
    Dim myFile As String
    Dim Rename As String
myFile = ThisWorkbook.Path & "\Test.doc"
    'save file as
    Rename = "Test" & Format(Now(), "dd-mm-yyyy h:mm:ss") & ". Doc"
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True
    Set wordFile = wordApp.Documents.Open(myFile)
On Error GoTo 0
    If wordFile Is Nothing Then
        MsgBox "File is not found!", vbInformation, "ERROR"
        GoTo quickEnd
    End If
With wordFile
        .Range.Text = Range("A1").Value
        .Range.Text = Range("A2").Value
        .SaveAs Rename 
    End With
'wordApp.Quit
quickEnd:
    Set wordFile = Nothing
    Set wordApp = Nothing
End Sub