Visualização de Formulário (III)

De acordo com os dois posts anteriores, torna-se evidente que, usando o evento Worksheet_BeforeDoubleClick, será também possível mostrar mais do que um Userform:

Se fizermos duplo clique numa das células do Range A1:A5, o resultado será:

Se fizermos duplo clique numa das células do Range B1:B5, o resultado será:

O Código:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim rng1 As Range, rng2 As Range

Set rng1 = Range("a1:a5")
Set rng2 = Range("b1:b5")

    
    If Not Intersect(Target, rng1) Is Nothing Then

        UserForm1.Show
    Else
        Cancel = True
    End If
    
    If Not Intersect(Target, rng2) Is Nothing Then

        UserForm2.Show
    Else
        Cancel = True
    End If

End Sub