On Error Resume Next
Set oWB = Workbooks("Test_WB.xls")
On Error Goto 0

If Not oWB Is Nothing Then
oWB.Save
End If


Workbooks.Open "test_WB.xls"
ActiveWindow.WindowState = xlMinimized


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"ph8" wrote in message
...

Greetings folks!

How do you check to see if a workbook is open?

And furthermore, if you do find one that is open, is there a way to
force that open workbook to save? Maybe by initializing a local
function or sub on the open workbook which just saves the sheet?

Also, what is the VBA code to open a workbook minimized?

Thanks in advanced for your time :).


--
ph8
------------------------------------------------------------------------
ph8's Profile:
http://www.excelforum.com/member.php...o&userid=19871
View this thread: http://www.excelforum.com/showthread...hreadid=518154