Hacer clic en una celda para activar una macro

Question

Me encontré con el siguiente VBA para generar un cuadro de mensaje al hacer clic en una celda determinada:

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

Esto funciona muy bien, sin embargo, ¿cuál es la sintaxis para agregar otro inmediatamente después? Es decir, hacer clic en una celda diferente para obtener un mensaje diferente.

Gracias

Answer 1

Esta es una forma de manejar dos celdas:

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