Loop to open Word Docs - Avoid Maximizing Already Open Doc

The code below opens Word docs using file paths in each cell in Excel range.

Code works to open the docs OK, but the issue is that it will also maximize one unrelated, already open Word doc (if it exists) that is minimized to the tool bar.

Is there a way to avoid this?

Code:

---

Dim Shex As Object
Set Shex = CreateObject("Shell.Application")


Dim rng As Range
Dim ws As Worksheet

Set ws = Worksheets("FilePaths")


    NumRows = Range("B2", Range("B1").End(xlDown)).Rows.Count


    Set rng = ws.Range("B2:B" & NumRows + 1)


For Each cell In rng


    Shex.Open cell.Value


Next cell


End Sub

---

I would try forcing EXCEL to start a new version of Word, with code like:

Code:

---

Dim wordApp As Word.Application

Set wordApp = CreateObject("word.Application")
wordApp.Visible = True

---

Note: totally untested just a guess

Thanks, but this (omitting the Dim statement as throws an error) opens a new blank Word window and maximizes that as well as an existing minimized document.

Also, Setting

Code:

---

wordApp.Visible = False

---

will not show a new blank Word window, but an existing minimized Word document is still maximized - the original problem.

Resolved using the

Code:

---

Documents.Open

---

method for word docs