Hi David

Thank you for posting your code.
I tried it and eventually got it to work, but found it not to be as
helpful as the alternative method of stretching a file across the width
of both monitors and then using Windows Side by Side with a vertical
tiling.

I think Dave P mentioned in another thread about formulae not being able
to be copied from one session to another, and this is exactly what I
found..

--
Regards

Roger Govier


"David T" wrote in message
...

Roger-

I combined several codes together to get the one below. This should
open up
the spreadsheet in another instance so that you can view the
spreadsheets on
two separate screens.


Sub Open_Trxfer_File()

Dim objExcel As Object
Dim SchedWkbk As Workbook


On Error Resume Next
Set SchedWkbk = Nothing

Set objExcel = CreateObject("Excel.Application")


Set SchedWkbk = objExcel.Application.Workbooks.Open _
("O:\SEM\Common\Accounting\Volume Actualization -
Invoice\3-
Mar 2007\Mar07 Transportation Pass Through") ' This is my personal
file
objExcel.Visible = True
On Error Resume Next


If SchedWkbk Is Nothing Then
Msgbox prompt:="Cannot find file. Please open file manually",
_
Buttons:=vbOKOnly + vbQuestion

End If

End Sub

"Roger Govier" wrote:

Hi David

And for the benefit of all, what was the code you came up with?

--
Regards

Roger Govier


"David T" wrote in message
...
Hey-

Thanks for all your help. I was able to figure how how it was done
by
playing around with the codes. Thanks.

"David T" wrote:

Hey guys-

I need a macro to open a file in a separate window so that I can
view
the
current file and the new file side by side. My current macro is
opening the
file within the same window. I also need a message box that will
say
"Can
not file file" if the macro cannot find the file. My current
macro
opens the
message box regardless if if finds the file or not. Can someone
help???????????!!!!!!!!!!!1


Sub open_Wiresheet()
On Error GoTo Exits

Application.Workbooks.Open ("O:\SEM\Common\Accounting\Mar-07 Wire
Transfer
Schedule.xls")

Exits: reply = Msgbox("Cannot find file. Please open file
manually",
vbOK
Or vbQuestion)

If reply = vbOK Then

Exit Sub
End If
End Sub