エクセルで特定範囲内のセルを変更したら同じ行の別なセルに更新日が表示されるようにしたい

エクセルで特定範囲内のセルを変更したら同じ行の別なセルに変更したことが分かる●と変更日が表示されるようにしたいため、下記のマクロを組んでいます。
具体的にはH列からAD列迄のいずれかを変更したら、F列に●、G列に変更日が表示されます。
今回教えていただきたいのは、R列は変更されても、F列に●が表示されず、G列に変更日が表示されないようにしたいのです。ご教示の程よろしくお願い致します。

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If .Row < 2 Then Exit Sub
If .Value = "" Then Exit Sub
Select Case .Column
Case 7 To 30
Cells(.Row, 6).Value = Date
Cells(.Row, 6).NumberFormatLocal = "yyyy/mm/dd"
Cells(.Row, 5).Value = "●"
Cells(.Row, 5).NumberFormatLocal = "@"
End Select
End With
End Sub

No.1 ベストアンサー 回答者： よろずやkinchan 回答日時： 2018/04/20 21:08

Select Case .Column

Case 7 To 30
　　　↓
Select Case .Column
Case 18　　　’ ←追加
Case 7 To 30

この回答へのお礼

ご連絡が遅くなり申し訳ございません。
解決出来ました。
有難うございました。

お礼日時：2018/04/24 14:37