エクセルの簡単なマクロ機能を追加したいのです

質問

既存のエクセルマクロ（Sub チェック()以下です）に下記の内容のマクロを付け足したいです。
教えていただけないでしょうか。

付け足したい条件です：
　Sheet2のC列に　0　 があれば
　Sheet1のB列に　愛 と（[太字]でセルの背景色を[灰色25%]にして）入れたいです

恐れ入りますがご存じの方がいらっしゃりましたら教えていただきたく何卒よろしくお願いいたします。
-----------------------------------------------
Sub チェック()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim myRange1 As Range
Dim myRange2 As Range
Dim c1 As Range
Dim c2 As Range
Dim myCt As Long

Set Ws1 = Worksheets("Sheet1")
Set Ws2 = Worksheets("Sheet2")
Set myRange1 = Ws1.Range("A1", Ws1.Cells(Rows.Count, "A").End(xlUp))
Set myRange2 = Ws2.Range("A1", Ws2.Cells(Rows.Count, "A").End(xlUp))

For Each c1 In myRange1
myCt = 0
For Each c2 In myRange2
If c2.Value = c1.Value Then
If c2.Offset(, 1).Value = "" Then
c1.Offset(, 1).Interior.ColorIndex = 3
Else
c1.Offset(, 1).Value = c2.Offset(, 1).Value
End If
myCt = myCt + 1
End If
Next c2
If myCt > 1 Then c1.Offset(, 1).Interior.ColorIndex = 10
Next c1

Set Ws1 = Nothing
Set Ws2 = Nothing
Set myRange1 = Nothing
Set myRange2 = Nothing
End Sub

回答No.1

noname#158634

＞Sheet2のC列に　0　 があれば
Ifを使う。
＞（[太字]でセルの背景色を[灰色25%]にして）
太字はFont.Bold、背景色はInterior.Color(もしくはColorIndex)です。

お礼

お礼の返事が遅れて申し訳ありませんでした。
返答頂きましてありがとうございました。
エクセルのマクロのホームページを見て試行錯誤していたのですが、エラーが出てしまいましてできませんでした。
このマクロプログラムでどのようにすればできるか教えていただければ幸いです。
よろしくお願いいたします。