diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index f7803ee..ba920eb 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -38,16 +38,8 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
     Dim code As String
     
     On Error Resume Next
-    Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
-    If wsKukan Is Nothing Then
-        Dim wsList As String
-        Dim s As Worksheet
-        For Each s In ThisWorkbook.Worksheets
-            wsList = wsList & s.Name & vbCrLf
-        Next
-        MsgBox "Worksheet '区間メンテナンス' not found." & vbCrLf & vbCrLf & "Available sheets:" & vbCrLf & wsList, vbExclamation
-        Exit Sub
-    End If
+    Set wsKukan = ThisWorkbook.Worksheets("Kukan_Master")
+    If wsKukan Is Nothing Then Exit Sub
     On Error GoTo 0
     code = Trim(ws.Cells(rowNum, 3).Value)
     If code = "" Then Exit Sub