下記のようなマクロを作成しましたが、実行するとエラーメッセージ（コンパイルエラー SubまたはFunctionが定義されていません）が表示され止ってしまいます。
解決方法を御指導お願い致します。
Private Sub CommandButton2_Click() '得意先登録ダイアログで登録ボタンをクリック時実行
Dim check As Long '重複の有無(=0:重複せず,>0:重複)
Dim insertRow As Long '挿入行位置
'入力必須項目のチェック
If koudo.Text = "" Then
MsgBox MsgBox "得意先コードを入力してください", vbExclamation, "入力エラー"
koudo.SetFocus
Exit Sub
End If
If syamei.Text = "" Then
MsgBox "得意先名を入力してください", vbExclamation, "入力エラー"
syamei.SetFocus
Exit Sub
End If
'重複チェック
On Error Resume Next
check = 0
check = WorksheetFunction.Match(clnt(koudo.Text), Range("得意先一覧").Columns(2), 0)
On Error GoTo 0
If check > 0 Then
MsgBox "この得意先コードは、すでに入力されています", vbExclamation, "入力エラー"
koudo.SetFocus
Exit Sub
End If
Sheets("得意先マスター").Unprotect
With Range("得意先一覧")
'最下行に一行挿入する
insertRow = .Rows.Count
.Rows(insertRow).Insert Shift:=xlDown
'データをセルに入力する
.Cells(insertRow, 1) = tourokubi.Text
.Cells(insertRow, 2) = koudo.Text
.Cells(insertRow, 3) = syamei.Text
.Cells(insertRow, 4) = huri.Text
End With
Sheets("得意先マスター").Protect
Unload 得意先登録ダイアログ
End Sub
お礼
pauNed様 御指導ありがとうございました。 また、勝手な捕捉質問にも御丁寧に御回答いただき感謝申し上げます。
補足
pauNed様 １・>check = WorksheetFunction.Match(Clnt(koudo.Text), Range("得意先一覧").Columns(2), 0) ×Clnt ○CInt ●×Clnt 「○CInt」は初めて使用しました。 マニュアル入力する時、小文字の「L」だとばかり思っていました。 ありがとうございました。 ２・>MsgBox MsgBox "得意先コードを入力してください", vbExclamation, "入力エラー" ここはコピーペーストミスだとして、（構文エラー） ●コピーペーストミスでした。 申し訳御座いません、今後気をつけます。 ●×Clnt ○CInt このような間違いをしない為に、関数や単語をコピーして利用させていただく方法がありましたら御教示お願い致します。