Нажав на ячейку, чтобы запустить макрос

Question

Я столкнулся со следующим VBA для генерации msgbox при нажатии на определенную ячейку:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D4")) Is Nothing Then
            MsgBox "Hello World"
        End If
    End If
End Sub

Это прекрасно работает, однако каков синтаксис для добавления другого сразу после? То есть, щелкнув по другой ячейке, чтобы получить другое сообщение.

Спасибо

Answer 1

Это один из способов обработки двух ячеек:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Selection.Count = 1 Then
      If Not Intersect(Target, Range("D4")) Is Nothing Then
         MsgBox "Hello World"
      End If

      If Not Intersect(Target, Range("F5")) Is Nothing Then
         MsgBox "Goodby World"
      End If
   End If
End Sub