diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt
index e082825..6bda727 100644
--- a/vba_code_kukan_detail_master.txt
+++ b/vba_code_kukan_detail_master.txt
@@ -22,7 +22,7 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
     Dim code As String
     
     On Error Resume Next
-    Set wsKukan = ThisWorkbook.Worksheets("Kukan_Master")
+    Set wsKukan = ThisWorkbook.Worksheets("M1")
     If wsKukan Is Nothing Then Exit Sub
     On Error GoTo 0
     code = Trim(ws.Cells(rowNum, 3).Value)