1つのシートに2つのWorksheet_Changeをつくる

1つのシートに2つのWorksheet_Changeで

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 2).Value = Date
Application.EnableEvents = True
End Sub

と

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 15 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 1).Value = Date
Application.EnableEvents = True
End Sub

を入れたいのですが、組み合わせ方が分かりません。
どのように書けばよいでしょうか？

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/07/17 10:41

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Target.Column ＝ 4 Then Target.Offset(, 2).Value = Date
If Target.Column = 15 Then Target.Offset(, 1).Value = Date
Application.EnableEvents = True
End Sub