Excel Count to next number in cell when sample file opened even pressed dont save after changes

[behuzt]

I have a macro program where I save the name of the excel file with the values I get from certain cells. After this save, I have to say "Don't save" when asked if you want to save the sample file so that it is empty. Otherwise, it will come with the last values in the next opening. I want the value in cell B1 to be incremented by 1 every time I open the sample file. Unfortunately, this formula does not work because I said "dont save" ( Worksheets("Expences").Range("B1") = Worksheets("Expences").Range("B1") + 1 )