Hi

This worked for me in excel 97.

Private Sub Workbook_Open()

x = 2
Worksheets("StatusAccounting").Activate
Cells(x, 8).Activate

End Sub



HTH

Ken


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.500 / Virus Database: 298 - Release Date: 10/07/2003