Remove debug code

vba_code_kukan_detail_master.txt

@@ -38,7 +38,6 @@ Private Sub Worksheet_Change(ByVal Target As Range)
         If Trim(Target.Value) = "" Then
             Call ClearRowData(Me, Target.Row)
         Else
-            MsgBox "C column changed: " & Trim(Target.Value), vbInformation
             Call FillFromKukanMaster(Me, Target.Row)
         End If
     End If
@@ -245,13 +244,11 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
     Dim deValue As String
     Dim fgValue As String
     
-    On Error GoTo 0
+    On Error Resume Next
     Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
+    On Error GoTo 0
     
-    If wsKukan Is Nothing Then
-        MsgBox "Worksheet '区間メンテナンス' not found.", vbExclamation
-        Exit Sub
-    End If
+    If wsKukan Is Nothing Then Exit Sub
     
     code = Trim(ws.Cells(rowNum, 3).Value)
     If code = "" Then Exit Sub
@@ -280,7 +277,8 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
     Next
     
     If Not found Then
-        MsgBox "Code '" & code & "' not found in 区間メンテナンス.", vbExclamation
+        Call ClearRowData(ws, rowNum)
+        Exit Sub
     End If