Excell 2003 MsgBox莫明奇妙的 bug~~~

Excell 2003 MsgBox莫明奇妙的 bug~~~

附加壓縮檔: 201706/mobile01-bcb37461b26e040afb27e094e4b233e0.zip

原本的程式很大一個，開啟時很耗時間，所以我加一個 timer 來顯示啟動的時間，以利修改程式，

但是有bug，我一直測試、一直刪除，刪到最後剩下這三個程式區塊

公式一、
用在 設定格式化條件，主要目的是，儲存格 C:L 都是利用公式產生的，

當儲存格內容被修改成直接寫入時（也就是公式被改掉）會用紅色顯示，方便辦視

這樣才知道這格的資料是寫死的，非公式產生

Option Explicit

'自動化格式明顯標示
Function IsFormula(rng As Range) As Boolean
Dim cell As Range
IsFormula = 1
For Each cell In rng
If cell.HasFormula = False Then
IsFormula = 0
End If
Next
End Function

在檔案開啟時，會執行兩個動作，

公式二、
#1 一個是選擇 a5這一個儲存格（這是因為存檔時，位置儲存格的位址會在其它地方，要方便每次開啟的操作，所以設定到 a5

公式三、
#2 是 將 尋找的選項，公式改成內容。預設是公式，這會讓尋找變的很麻煩（內容通通是公式產生），

每次都要手動改，所以加了這一段，讓尋找的選項，變成內容。


Dim Time0

Private Sub Workbook_Open()

Time0 = Timer



'--#1-----------------------------------------------------------


Sheets("Sheet1").Activate
Sheets("Sheet1").Range("A5").Select


'--#2-----------------------------------------------------------
'Configure Excel to look by default in Formulas, Values and Comments
'http://superuser.com/questions/114831/configure-excel-to-look-by-default-in-formulas-values-and-comments
'修正尋找設定為內容而非公式
'Application.ScreenUpdating = False
Worksheets(1).Cells.Find _
What:="", _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
MatchByte:=False, _
SearchFormat:=False
'Application.ScreenUpdating = True

'-------------------------------------------------------------
'Dim Time0
'Time0 = Timer
MsgBox "執行時間#2 " & Timer - Time0 & " 秒", vbOKOnly

'-------------------------------------------------------------

End Sub



問題點在於，最後一行的 MsgBox "執行時間#2 " & Timer - Time0 & " 秒", vbOKOnly 不會執行

因為自動化格式 、 尋找 、 點選 a5 這三個動作，結果導致 MsgBox 不會顯示。

將 MsgBox 移到 #2之上，就會顯示，在#2之後就不會顯示，將 #1 改 成沒有自動作格式的 欄 ex: n1 就會顯示

將a5 的公式刪除也會顯示，將 自動化格式移除，也會顯示

反正就是這三個剛好組合在一起，MsgBox 就不會顯示

搞的我好煩呀~~

請問問題源頭是什麼？