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