right click the excel icon in the upper left cornercopy paste thismodify
to suitsave workbook.
Private Sub Workbook_Open()
Sheets("sheet1").Range("a1") = ActiveWorkbook.Sheets.Count
End Sub


--
Don Guillett
SalesAid Software

"dradon" wrote in message
...
I want to use the code above but don't know anything about VBA. The goal
is
to have the number worksheets displayed in cell A1 on the first worksheet
everytime I open this file.