Can Excel AutoNumber

G

Globe Director

Can a cell be set up to function as AutoNumber does in MS Access? Each time
a worksheet is opened the cell increments one number, or can a macro be
generated to do this function after the workbook is opened?
 
G

Gary L Brown

To increment a number by 1 everytime a worksheet is activated, put the
following code in that worksheet's module.

To do that, get into the VBE (Alt-F11). In the Project window,
double-left-click on the worksheet you want to use. In the Code window (to
the right of the Project window), put the following code.

'/===============================/
Private Sub Worksheet_Activate()
Range("A1").Value = Range("A1").Value + 1
End Sub
'/===============================/

"A1" can actually be any cell you want the number to appear in.

HTH
 
G

Globe Director

Gary,
Thanks!!! I put your code into the WorkBook's module, and each time the
file is opened the cell increments. FYI this is for a Return Material
Authorization form.

Globe Director
 
Top