rename kotsu mastger

src/thisWorkbook/Kotsu_master.bas

@@ -3,7 +3,7 @@ Sub Z1_ClearRowData(ByVal ws As Worksheet, ByVal rowNum As Long)
     ws.Cells(rowNum, 2).ClearContents
 End Sub
 
-Sub Z1_ImportMasterDetailData()
+Sub Z1_Import()
     Dim filePath As String
     Dim wsTarget As Worksheet
     Dim lines As Variant
@@ -49,7 +49,7 @@ ErrorHandler:
     MsgBox "Import fails:" & vbCrLf & Err.Description, vbCritical
 End Sub
 
-Sub Z1_ExportMasterDetailData()
+Sub Z1_Export()
     Dim ws As Worksheet
     Dim lastDataRow As Long
     Dim savePath As String