Excel crash just after opening

[KadeFoster]

hey all,

I am trying to work out what is killing my workbook.

I open the workbook and not even a second after opening excel just shuts down. I think it has to do with my VBA in thats in ThisWorkBook >> Open Workbook Sub

It doesn't happen all the time and i cannot replicate what i was doing. I have opened and closed the workbook like 100 times and nothing, then it just happens and the workbook is broken.

Below is my code. All recommendations welcome.

Private Sub Workbook_Open()
    
    If Range("BOOKCOUNTER").Value = 0 Then
        Range("DowntimeToyota") = 0
        Range("DowntimeForklift") = 0
        Range("DowntimeBobcat") = 0
        Range("RedirectedForklift") = 0
        Range("BOOKCOUNTER").Value = Range("BOOKCOUNTER").Value + 1

    Else: Range("BOOKCOUNTER").Value = Range("BOOKCOUNTER").Value + 1

    End If
    
End Sub

 

[ozex]

I recently experienced strange and random issues with workbooks shutting down and at first began recreating them thinking they may be corrupted but the same issues occurred again. I found my solution was to change the virtual (pagefile) memory size. If you Google that you will find many sites to advise but here are two which are almost duplicates:

How To Manage Virtual Memory (Pagefile) In Windows 10

Follow these simple steps to manually manage the Virtual Memory (Pagefile) size in Windows 10.

www.tomshardware.com

How to Manage Your Virtual Memory (Page File) In Windows

A Page File acts as an overflow for your system memory (RAM) when you have too many applications running at one time. However, it is constantly being used by Windows to store temporary data regardless of how much RAM you have installed. Having no...

dovetailgames.freshdesk.com

It may not be your solution but maybe worth a check to save ineffective effort. It's possibly trial and error time by the sounds of it.

HTH

 

[KadeFoster]

I recently experienced strange and random issues with workbooks shutting down and at first began recreating them thinking they may be corrupted but the same issues occurred again. I found my solution was to change the virtual (pagefile) memory size. If you Google that you will find many sites to advise but here are two which are almost duplicates:

How To Manage Virtual Memory (Pagefile) In Windows 10

Follow these simple steps to manually manage the Virtual Memory (Pagefile) size in Windows 10.

www.tomshardware.com

How to Manage Your Virtual Memory (Page File) In Windows

A Page File acts as an overflow for your system memory (RAM) when you have too many applications running at one time. However, it is constantly being used by Windows to store temporary data regardless of how much RAM you have installed. Having no...

dovetailgames.freshdesk.com

It may not be your solution but maybe worth a check to save ineffective effort. It's possibly trial and error time by the sounds of it.

HTH

Not sure if this is something i can do on my work computer.

 

[NdNoviceHlp]

Hi KadeFoster. Is this a file stored on One Drive? There have been posts about syncing issues and wb's crashing due to wb open code. The solution was to...

Private Sub Workbook_Open()
    If ThisWorkbook.Sheets("Sheet1").Range("BOOKCOUNTER").Value = 0 Then
       ThisWorkbook.Sheets("Sheet1").Range("DowntimeToyota") = 0
       ThisWorkbook.Sheets("Sheet1").Range("DowntimeForklift") = 0
       ThisWorkbook.Sheets("Sheet1").Range("DowntimeBobcat") = 0
       ThisWorkbook.Sheets("Sheet1").Range("RedirectedForklift") = 0
       ThisWorkbook.Sheets("Sheet1").Range("BOOKCOUNTER").Value = _
                         ThisWorkbook.Sheets("Sheet1").Range("BOOKCOUNTER").Value + 1
    Else: ThisWorkbook.Sheets("Sheet1").Range("BOOKCOUNTER").Value = _
                         ThisWorkbook.Sheets("Sheet1").Range("BOOKCOUNTER").Value + 1
    End If
End Sub

You will need to adjust the sheet name to suit. There was also some mention of adding some wait code to the open event so as to give One Drive time to do it's thing. HTH. Dave
ps. Here's a link with some similar info.

https://www.reddit.com/r/vba/comments/1c4rh1u/workbooks_open_not_running_automatically_when

 

[KadeFoster]

OK thanks i will give this a go and see what happens. Will used it for a few days over my block and see if it crashes.

I was also thinking of moving the code to the sheet activate sub. So opening isn't affected.