VBA - Open Workbook Count

[jaclynresendez]

Hello All,

I'm trying to figure out how to get a count everytime my workbook is opened and to then place that number in a cell on the first sheet. Any suggestions would be greatly appreciated.

Thanks!

 

[Smitty]

Welcome to the Board!

You can use something like this:

<font face=Tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()<br>    Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope that helps,

 

[jaclynresendez]

Smitty... we're in love!!!

Thanks a bunch!

 

[Smitty]

I don't think my wife will be too pleased to hear that.

Glad I could help.

 

[jaclynresendez]

Actually, now that I've come back from lunch and back to my project I realize that it will not work since I am not saving the original workbook (I have it saving as a different file name and it's to use the open count in that title to made the file name unique).

Is there a code that actually counts the number of times a workbook is open in lieu of just adding one to an existing cell value?

Cheers!

 

[Smitty]

Actually, now that I've come back from lunch and back to my project I realize that it will not work since I am not saving the original workbook (I have it saving as a different file name and it's to use the open count in that title to made the file name unique).

Is there a code that actually counts the number of times a workbook is open in lieu of just adding one to an existing cell value?

Cheers!

If you're not saving the original I don't really see anyway to increment, unless you write to a text file.

Here's a good link from MVP Jon Peltier on how to do it: Using Text Files to Save and Retrieve Information in Microsoft Excel.

You might also consider creating a template, which will open with a 1 appended to the end of the file name.