Don't know if this is the problem, but looks like you meant to say "Dim wb
as Workbook." If you've got Option Explicit set in Office 97 (and you
should, cause it catches errors like this) and not in 2000, that might
explain why it runs in 2000 but not in 97.

hth,

Doug Glancy

"muziq2 " wrote in message
...
Hi,

I have the following code in an excel workbook that works fine on my
box running Excel 2000. When I try to open this on a machine running
Excel '97 I'm getting a debug error. The Private Sub Workbook_Open
line is highlighted as well as the Set wb = is highlighted.

Will this code work in Excel '97 or is there some other problem (i.e.
access to the other workbook) that I haven't considered. Although the
users that are having the problems should have access to this file.

Thanks in advance.

Jeff

Private Sub Workbook_Open()

Dim Workbook As Workbook
Application.ScreenUpdating = False ' turn off the screen updating
Set wb =

Workbooks.Open("\\sfna-fs4\hrs\shared\hr_(all)\accidentflashreport\userfo rmt
est.xls",
True, True)
' open the source workbook, read only
With ThisWorkbook.Worksheets("Training")
' read data from the source workbook
Range("A1:B13").Formula =
wb.Worksheets("Sheet3").Range("A1:B13").Formula
End With
With ThisWorkbook.Worksheets("SignUp")
' read data from the source workbook
Range("A:B").Formula =
wb.Worksheets("SignUp").Range("A:B").Formula
End With

wb.Close False ' close the source workbook without saving any
changes
Set wb = Nothing ' free memory
Application.ScreenUpdating = True ' turn on the screen updating

End Sub


---
Message posted from http://www.ExcelForum.com/