The following will put a counter in Sheet1 cell A1. Paste the macro in
Workbook code:


Private Sub Workbook_Open()
Set r = Sheets("Sheet1").Range("A1")
r.Value = r.Value + 1
End Sub
--
Gary''s Student
gsnu200710


"nipper" wrote:

Within microsoft excel, I need to show a counter that will increase everytime
that file is opened.