Loop to open Word Docs - Avoid Maximizing Already Open Doc

[BrI]

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?

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