Numbering Function

  • Thread starter Thread starter mdougherty44
  • Start date Start date
M

mdougherty44

How can I set up a cell to automatically increase it's numeric value by 1
every time the workbook is opened? Thanks!
 
In the "ThisWorkbook" module:

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


Tim
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Application.Caller calls from ActiveWorkbook not the actual cell workbook 1
Cell values to an array, then array transpose to another workbook 8
How do you chart data from multiple sheets within a workbook? 3
user defined function which increase consecutively while passingbelow cells 12
The worksheet calculates too often 6
VBA code for pasting links -- modifying RDB code for summary workbook 10
Need Macro... 8
Save As and new workbook new name used in existing code 8

Back
Top