You don't mention if you want both forms displayed at the same time - assuming not.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'// Excel seems to object when sometihng is declared as a userform...
Dim f As Object
Cancel = True
'// change names to suit yours...
If Not Application.Intersect(Target, Range("B6:B206")) Is Nothing Then
Set f = New UserForm1
ElseIf Not Application.Intersect(Target, Range("c6:c206")) Is Nothing Then
Set f = New UserForm2
Else
Exit Sub
End If
With f
.Startup Position = 0
.Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width) - 500
.Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
.Show
End With
End Sub
Typed freehand and guaranteed 100% untested...
Bookmarks