diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 3a9fadb6..7cdb61a3 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -21,6 +21,12 @@ Sub run()
     '����������
     Call init
 
+    '���̓`�F�b�N�i�c�Ə��E�����󋵂����I���Ȃ珈�����f�j
+    If Trim(Range("�I���c�Ə�").Value) = "" Or Trim(Range("������").Value) = "" Then
+        MsgBox "�c�Ə��ƕ����󋵂͕K���I�����Ă�������", vbExclamation
+        Exit Sub
+    End If
+
     On Error GoTo Cleanup
 
     defaultSh.Range("D4").Value = Now