diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 102c1498..1b663f5d 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -24,7 +24,7 @@ Sub run()
     '���̓`�F�b�N�i�c�Ə��E�����󋵂����I���Ȃ珈�����f�j
     Dim selSalesOffice As Variant, selPropertyStatus As Variant
     selSalesOffice = Range("�I���c�Ə�").Cells(1, 1).Value
-    selPropertyStatus = Range("������").Cells(1, 1).Value
+    selPropertyStatus = Range("�I����").Cells(1, 1).Value
     If IsError(selSalesOffice) Then selSalesOffice = ""
     If IsError(selPropertyStatus) Then selPropertyStatus = ""