Щелчок по ячейке для запуска макроса

Question

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

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