excelでのマクロ 一定条件での停止

初めて投稿させていただいております。

＜自分のレベル＞
マクロ(VBA)については初心者で、自分で操作をして、
自動生成されるプログラムを多少改変できる程度。

＜excel version＞
excel 2000

＜教えていただきたい事＞
カーソルのある行に行挿入するマクロを作ったですが、
このとき、８行目より前にカーソルがある場合に、
メッセージを表示して、そのマクロを停止したいのですが
どのようなプログラムを書けば良いでしょうか？

よろしくお願いします。

No.1 ベストアンサー 回答者： noname#122067 回答日時： 2005/04/22 10:20

↓こんな感じでどうでしょうか？

Private Sub CommandButton1_Click()
If (Selection.Row < 8) Then
MsgBox ("８行目より前には挿入できません")
Else
Rows(Selection.Row).Insert Shift:=xlDown
End If
End Sub