Automatically increasing a number by 1
 

How can I get a number in a cell to automatically in crease by 1 when the
workbook is opened?

THanks

Automatically increasing a number by 1
 

What Cell in which worksheet do you want the counter

"Dave" wrote:

How can I get a number in a cell to automatically in crease by 1 when the
workbook is opened?

THanks

Automatically increasing a number by 1
 

See link
http://www.mrexcel.com/archive/VBA/19072.html


"Dave" wrote:

How can I get a number in a cell to automatically in crease by 1 when the
workbook is opened?

THanks

Automatically increasing a number by 1
 

Dave

Private Sub Workbook_Open()
With Sheets("Sheet1").Range("A1")
..Value = .Value + 1
End With
End Sub

Adjust sheet and range to suit.

Right-click on the Excel Icon left of "File" on the menubar.

Select "View Code".

Paste the above into that module.


Gord Dibben MS Excel MVP

On Wed, 23 Aug 2006 13:58:02 -0700, Dave wrote:

How can I get a number in a cell to automatically in crease by 1 when the
workbook is opened?

THanks