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.

Press Alt+F11.
Double-click on 'ThisWorkbook'.
Paste the following code

Private Sub Workbook_Open()
Range("A1").Value = Sheets.Count & " Worksheets"
End Sub


HTH,
Paul

"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.

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.