Open word doc from excel

[pld60]

I have a command button on an excel spreadsheet to open a word document with this code.

Private Sub CommandButton1_Click()
         Dim objWord As Object
     Set objWord = CreateObject("Word.Application")
      objWord.Visible = True
      objWord.Documents.Open "H:\Spreadsheets\400 Book\400 Book help.docx"
 End Sub

This works great opens the proper document, but is not the active document. I would like when you click that you see the word document.

 

[arnelgp]

activate the word application

objWord.Documents.Open "H:\Spreadsheets\400 Book\400 Book help.docx"
objWord.Application.Activate

if it doesn't show up in front, please see this post:
http://www.access-programmers.co.uk/forums/showthread.php?t=287189

 

[pld60]

arnelgp, thanks that works great!!!!