Hi PNJ, welcome to the board!


Here is some sample code ...


Option Explicit
Sub openWordPlease()
    Dim wordApp As Object, wordFile As Object, myFile As String
    myFile = InputBox("Please enter the full path and filename of the Word " & _
        "document to open:", "Path & Name")
    If myFile = "" Then
        MsgBox "Sorry, I don't know where that's at!", vbExclamation, "Sorry"
        Exit Sub
    End If
    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
        .Save
    End With
    wordApp.Quit
quickEnd:
    Set wordFile = Nothing
    Set wordApp = Nothing
End Sub
As you can see, there are certain variables you can 'hardcode' if you like. It also closes the Word file when done. The information put in there is a range value you can substitute for your variable.


HTH