EXCELer Tudo sobre EXCEL em Português
Se pretendermos que a visualização do UserForm seja limitado a um ou vários Ranges, então podemos inserir o seguinte Código:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng1 As Range, rng2 As Range
Set rng1 = Range("a1:a10")
Set rng2 = Range("b1:b10")
If Not Intersect(Target, rng1) Is Nothing Then
UserForm1.Show
Else
Cancel = True
End If
If Not Intersect(Target, rng2) Is Nothing Then
UserForm1.Show
Else
Cancel = True
End If
End Sub
Assim,ao fazer-se duplo clique em qualquer célula do(s) Range(s) indicados e só nessas células, é que o UserForm é apresentado.