I think you should add a loop in the macro such as FOR or
DO loop.

Best Regards

Bill
-----Original Message-----
Am I making this to hard? I want to open all documents
linked to my main documents. I want to open the main
document and be select to open all the liked documents in
one step.

I have been working with a macro that can open documents
by name but I want the whole directory to open and (if
possible) open as minimized. If theres an easier way
that
would be great too.

Heres what I have so far.

Sub AllFiles()
'will open all files in a directory
Dim myPath As String, myFile As String
myPath = "C:\desktop\test"
myFile = Dir(myPath & "*.xls")
Workbooks.Open myPath & myFile
ActiveWindow.WindowState = xlMinimized
End Sub


to open a single document I have (this works):

Sub OpenOneFile()
Workbooks.Open ("C:\WINDOWS\Desktop\test\book4.xls")
ActiveWindow.WindowState = xlMinimized
End Sub

.