diff --git a/vba_code_kotsu_master.txt b/vba_code_kotsu_master.txt
index 4c46e00..70a8e4b 100644
--- a/vba_code_kotsu_master.txt
+++ b/vba_code_kotsu_master.txt
@@ -119,7 +119,7 @@ NextLine:
     MsgBox writeRow - 7 & " rows imported.", vbInformation
 End Sub
 
-Function Z1_Z1_CleanCSVField(ByVal field As Variant) As String
+Function Z1_CleanCSVField(ByVal field As Variant) As String
     If IsEmpty(field) Or IsNull(field) Then
         CleanCSVField = ""
         Exit Function
@@ -137,7 +137,7 @@ Function Z1_Z1_CleanCSVField(ByVal field As Variant) As String
     CleanCSVField = result
 End Function
 
-Sub Z1_Z1_validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long)
+Sub Z1_validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long)
     ' Check C column - must be 3-digit alphanumeric, required
     Dim cValue As String
     cValue = Trim(ws.Cells(rowNum, 3).Value)
@@ -250,7 +250,7 @@ Sub Z1_validateDetailDataButton()
     
     errorCount = 0
     For r = 7 To lastRow
-        Call Z1_Z1_validateDetailData(ws, r)
+        Call Z1_validateDetailData(ws, r)
         If Trim(ws.Cells(r, 2).Value) <> "" Then
             errorCount = errorCount + 1
         End If