Clicando em uma célula para disparar uma macro

Question

Me deparei com o seguinte VBA para gerar uma msgbox ao clicar em uma determinada célula:

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

Isso funciona muito bem, mas qual é a sintaxe para adicionar outra logo depois? Ou seja, clicar em uma célula diferente para receber uma mensagem diferente.

Obrigado

    

Answer 1

Esta é uma maneira de lidar com duas células:

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