Choice

This will work...change the obvious bits to the location of the file

Sub Auto_Open()
Dim wbHidden As Workbook
Application.ScreenUpdating = False
Set wbHidden = Workbooks.Open("C:\Data.xls")
wbHidden.Windows(1).Visible = False
Application.ScreenUpdating = True
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"choice" wrote in message
...
i have register.xls that i open, on auto_open i want it to open data.xls
and
make data.xls hidden

thanks in advance