EXCEL VBAでメッセージ無限ループの回避

ここに実現したいことを箇条書きで書いてください。

• EXCEL VBAでメッセージの無限ループを回避したい

前提

初心者ながら、EXCEL VBAでファイルを作っています。
連続入力をする際、重複データがあった場合にメッセージ表示でアナウンスするように作ったのですが、メッセージの表示が無限ループしてしまいます。
色々試してみたもののメッセージ自体を表示しない方法しか分からず、どうかご教示頂けないでしょうか。
コードは下記の通りとなります。

Private Sub Worksheet_Change(ByVal target As Range) If target.Column = 2 Then If target.Row > 1 Then target.Offset(0, 1) = Now End If If target.Count <> 1 Then Exit Sub '値が１個以外 If target.Column <> 2 Then Exit Sub '２(Ｂ)列目のみを監視 If target.Row > 100 Then Exit Sub '100行目までを監視 If Application.WorksheetFunction.CountIf(Range("B2:B100"), target.Value) > 1 Then MsgBox "入力した値は既に使われています" 'target.Value = "" '入力された値が監視範囲の中に１つより多ければ(＝重複していれば)メッセージを出し、入力値を空白に戻す。 ActiveCell.Offset(-1, 0).Select End If End If End Sub

初歩的な内容とは存じますが宜しくお願い致します。