diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 7cdb61a3..ceb56d2e 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -22,7 +22,13 @@ Sub run()
     Call init
 
     '���̓`�F�b�N�i�c�Ə��E�����󋵂����I���Ȃ珈�����f�j
-    If Trim(Range("�I���c�Ə�").Value) = "" Or Trim(Range("������").Value) = "" Then
+    Dim selSalesOffice As Variant, selPropertyStatus As Variant
+    selSalesOffice = Range("�I���c�Ə�").Cells(1, 1).Value
+    selPropertyStatus = Range("������").Cells(1, 1).Value
+    If IsError(selSalesOffice) Then selSalesOffice = ""
+    If IsError(selPropertyStatus) Then selPropertyStatus = ""
+
+    If Trim(CStr(selSalesOffice)) = "" Or Trim(CStr(selPropertyStatus)) = "" Then
         MsgBox "�c�Ə��ƕ����󋵂͕K���I�����Ă�������", vbExclamation
         Exit Sub
     End If