diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index 49d93908..24f49de0 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -310,7 +310,7 @@ Function BuildViewFromSheet() As Object
     Dim r As Long
     r = 3
     Do While Trim(defaultSh.Cells(r, "F").Value) <> ""
-        colFilter.Add defaultSh.Cells(r, "F").Value, defaultSh.Cells(r, "G").Value
+        colFilter.Add defaultSh.Cells(r, "F").Value, "[" & Chr(34) & CStr(defaultSh.Cells(r, "G").Value) & Chr(34) & "]"
         r = r + 1
     Loop