Is there a way to make a cell automatically number itself everytime the work
book is opened? I would like to create an invoice that automatically changes
it's number when opened.

To make cell A1 in Sheet1 increment every time the workbook is opened:

In ThisWorkbook code enter the following macro:

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

--
Gary''s Student
gsnu200709


"George" wrote:

Is there a way to make a cell automatically number itself everytime the work
book is opened? I would like to create an invoice that automatically changes
it's number when opened.

Thanks Gary, I am a little green with macros - can you explain this in
greater detail - please?

"Gary''s Student" wrote:

To make cell A1 in Sheet1 increment every time the workbook is opened:

In ThisWorkbook code enter the following macro:

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

--
Gary''s Student
gsnu200709


"George" wrote:

Is there a way to make a cell automatically number itself everytime the work
book is opened? I would like to create an invoice that automatically changes
it's number when opened.

1. touch ALT-F11 to bring up VBA
2. right-click TisWorkbook in the left hand panel
select view code
3. paste the stuff in
4. close the VBA window (save is not necessary)
--
Gary''s Student
gsnu200709


"George" wrote:

Thanks Gary, I am a little green with macros - can you explain this in
greater detail - please?

"Gary''s Student" wrote:

To make cell A1 in Sheet1 increment every time the workbook is opened:

In ThisWorkbook code enter the following macro:

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

--
Gary''s Student
gsnu200709


"George" wrote:

Is there a way to make a cell automatically number itself everytime the work
book is opened? I would like to create an invoice that automatically changes
it's number when opened.

Thanks again Gary - that worked great, but do I have to leave the "Enable all
macros (not recommended...) checked for this to work?

"Gary''s Student" wrote:

1. touch ALT-F11 to bring up VBA
2. right-click TisWorkbook in the left hand panel
select view code
3. paste the stuff in
4. close the VBA window (save is not necessary)
--
Gary''s Student
gsnu200709


"George" wrote:

Thanks Gary, I am a little green with macros - can you explain this in
greater detail - please?

"Gary''s Student" wrote:

To make cell A1 in Sheet1 increment every time the workbook is opened:

In ThisWorkbook code enter the following macro:

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

--
Gary''s Student
gsnu200709


"George" wrote:

Is there a way to make a cell automatically number itself everytime the work
book is opened? I would like to create an invoice that automatically changes
it's number when opened.

If you are concerned:

1. leave the Security settings at a level you ae comfortable with
2. don't open this workbook with a double click to an icon, instead:
3. open Excel
4. fix the security setting to allow this macro
5. open the file
6. after closing the file restore the settings.
--
Gary''s Student
gsnu200709


"George" wrote:

Thanks again Gary - that worked great, but do I have to leave the "Enable all
macros (not recommended...) checked for this to work?

"Gary''s Student" wrote:

1. touch ALT-F11 to bring up VBA
2. right-click TisWorkbook in the left hand panel
select view code
3. paste the stuff in
4. close the VBA window (save is not necessary)
--
Gary''s Student
gsnu200709


"George" wrote:

Thanks Gary, I am a little green with macros - can you explain this in
greater detail - please?

"Gary''s Student" wrote:

To make cell A1 in Sheet1 increment every time the workbook is opened:

In ThisWorkbook code enter the following macro:

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

--
Gary''s Student
gsnu200709


"George" wrote:

Is there a way to make a cell automatically number itself everytime the work
book is opened? I would like to create an invoice that automatically changes
it's number when opened.

Thanks again Gary - now do you have any good connections for some help with
Infopath?

"Gary''s Student" wrote:

If you are concerned:

1. leave the Security settings at a level you ae comfortable with
2. don't open this workbook with a double click to an icon, instead:
3. open Excel
4. fix the security setting to allow this macro
5. open the file
6. after closing the file restore the settings.
--
Gary''s Student
gsnu200709


"George" wrote:

Thanks again Gary - that worked great, but do I have to leave the "Enable all
macros (not recommended...) checked for this to work?

"Gary''s Student" wrote:

1. touch ALT-F11 to bring up VBA
2. right-click TisWorkbook in the left hand panel
select view code
3. paste the stuff in
4. close the VBA window (save is not necessary)
--
Gary''s Student
gsnu200709


"George" wrote:

Thanks Gary, I am a little green with macros - can you explain this in
greater detail - please?

"Gary''s Student" wrote:

To make cell A1 in Sheet1 increment every time the workbook is opened:

In ThisWorkbook code enter the following macro:

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

--
Gary''s Student
gsnu200709


"George" wrote:

Is there a way to make a cell automatically number itself everytime the work
book is opened? I would like to create an invoice that automatically changes
it's number when opened.

microsoft.public.infopath

For a complete list of MS news groups try here.

http://aumha.org/nntp.htm


Gord Dibben MS Excel MVP

On Wed, 7 Mar 2007 09:32:00 -0800, George
wrote:

Thanks again Gary - now do you have any good connections for some help with
Infopath?

"Gary''s Student" wrote:

If you are concerned:

1. leave the Security settings at a level you ae comfortable with
2. don't open this workbook with a double click to an icon, instead:
3. open Excel
4. fix the security setting to allow this macro
5. open the file
6. after closing the file restore the settings.
--
Gary''s Student
gsnu200709


"George" wrote:

Thanks again Gary - that worked great, but do I have to leave the "Enable all
macros (not recommended...) checked for this to work?

"Gary''s Student" wrote:

1. touch ALT-F11 to bring up VBA
2. right-click TisWorkbook in the left hand panel
select view code
3. paste the stuff in
4. close the VBA window (save is not necessary)
--
Gary''s Student
gsnu200709


"George" wrote:

Thanks Gary, I am a little green with macros - can you explain this in
greater detail - please?

"Gary''s Student" wrote:

To make cell A1 in Sheet1 increment every time the workbook is opened:

In ThisWorkbook code enter the following macro:

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

--
Gary''s Student
gsnu200709


"George" wrote:

Is there a way to make a cell automatically number itself everytime the work
book is opened? I would like to create an invoice that automatically changes
it's number when opened.