エクセル ＶＢＡ セルの色をSheet1とSheet2の両方を変えたいのですが・・・

質問

最近困っているところが表題の通りなのですが
Sheet1のＢ２を右クリックするとＢ２のセルの色を変えて
Sheet2のＢ２のセルも色を変えたいというものです。
現状で

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim Rng As Range, myRng As Range
Dim RngA As Range, myRngA As Range

Set Rng = Range("B3:W3,b7:w8,b12:w12,d13:w13,d17:w18,d22:w23")
Set myRng = Intersect(Target, Rng)

If myRng.Interior.ColorIndex = xlColorIndexNone Then
myRng.Interior.ColorIndex = 37

Else
If myRng.Interior.ColorIndex = 37 Then
myRng.Interior.ColorIndex = 45

Else
myRng.Interior.ColorIndex = xlColorIndexNone
End If

End If
Cancel = True
End Sub

とここまではあるのですが、これをどう改造すればSheet2の同じセルの色もかわるのでしょうか？
宜しくお願いいたします

回答No.1

zap35 · ベストアンサー

試していませんが
　myRng.Interior.ColorIndex = 37
　Sheets("Sheet2").Range(myRng.Address).Interior.ColorIndex = 37
のようにしてみたらどうですか？

ただこのマクロは
　Set myRng = Intersect(Target, Rng)
の結果がNothingだとエラーになりそうです。

　If Not myRng Is Nothing Then
　　　色を変更する処理
　End If
にしたらよいと思います。

お礼

お返事遅くなりましてすいません。
上記でばっちり動きました。
ありがとうございます！