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
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"Globe Director" wrote:

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?