エクセル２００７　選択した範囲のみ変更したいのです

皆様こんにちわ 　マウスでセル選択した特定行のみ、セル内容を変更したいのです。 　下記コードでは、右クリックを使用した例です。 　これですと、Ｂ３：Ｇ３、Ｂ６：Ｇ６だけではなく、選択している範囲に含まれていたら全て変更されちゃいます。 　Ｂ３：Ｇ３、Ｂ６：Ｇ６のみ変更するには、どの様にすればよいのでしょうか？ また、右クリック以外に良い方法はありますでしょうか？ Private Sub Worksheet_BeforeRightClick(ByVal Animal As Range, Cancel As Boolean) If Intersect(Animal, Range("B3:G3,B6:G6")) Is Nothing Then Exit Sub For Each Animal In Selection If Animal.Value = "にゃん" Then Animal.Value = "わん" Else Animal.Value = "にゃん" End If Next Animal End Sub 稚拙な事ですみませんが、皆様宜しくご教示願います。