diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 6d27ffb6..74d49a6d 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -37,6 +37,7 @@ Sub run()
 
     defaultSh.Range("D4").Value = Now
     defaultSh.Range("D3").Value = "�捞������..."
+    Debug.Print "[D3] " & defaultSh.Range("D3").Value
     Application.ScreenUpdating = False '��ʍX�V��~
     Application.Calculation = xlManual '�����v�Z��~
     '------------------------------------------
@@ -58,11 +59,14 @@ Cleanup:
 
     If Err.Number <> 0 Then
         defaultSh.Range("D3").Value = "�捞�������s�i�G���[�j: " & Err.Description
+        Debug.Print "[D3] " & defaultSh.Range("D3").Value
         Err.Clear
     ElseIf Not (exportSuccess And getSuccess) Then
         defaultSh.Range("D3").Value = "�捞�������s�i�f�[�^�擾�G���[�j"
+        Debug.Print "[D3] " & defaultSh.Range("D3").Value
     Else
         defaultSh.Range("D3").Value = "�捞��������"
+        Debug.Print "[D3] " & defaultSh.Range("D3").Value
     End If
 End Sub