From d6d54cfd4095b8e205627c59fee8b0dfb20f63dc Mon Sep 17 00:00:00 2001
From: updsv7 <updsv7@guan.onehr>
Date: Mon, 13 Apr 2026 12:29:13 +0900
Subject: [PATCH] Revert to simple worksheet lookup

---
 vba_code_kukan_detail_master.txt | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index c96076c..f7803ee 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -38,19 +38,7 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
     Dim code As String
     
     On Error Resume Next
-    ' Try to find worksheet with partial match
-    Dim wsName As String
-    wsName = "区間メンテナンス"
-    Set wsKukan = Nothing
-    Dim s As Worksheet
-    For Each s In ThisWorkbook.Worksheets
-        If InStr(1, s.Name, "区間", vbTextCompare) > 0 Then
-            Set wsKukan = s
-            Exit For
-        End If
-    Next
-    If wsKukan Is Nothing Then Set wsKukan = ThisWorkbook.Worksheets(wsName)
-    
+    Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
     If wsKukan Is Nothing Then
         Dim wsList As String
         Dim s As Worksheet