Open Two Different UserForms by Clicking Specific Cells

[gugumnd]

Im trying to make a vba program that will open specific userform by clicking specific cells. I have two forms Userform1 and UserForm2 that I want to show on the same Worksheet when a user click specific cell. Example; when Range("A1") is doubleclicked show UserForm1, when Range("A5") is doubleclicked show UserForm2.

I tried the code below but it only works for Range("A1") and Userform1. I dont know how to add for Range("A5") and Userform2.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Double click
If Not Application.Intersect(Target, Worksheets("Sheet1").Range("A1")) Is Nothing Then
Cancel = True
UserForm1.Show
End If



Please help. Thanks.

 

[Fluff]

Hi & welcome to the board.
How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Double click
If Not Intersect(Target, Range("A1")) Is Nothing Then
   Cancel = True
   UserForm1.Show
ElseIf Not Intersect(Target, Range("A5")) Is Nothing Then
   Cancel = True
   UserForm2.Show
End If
End Sub

 

[gugumnd]

Hi Fluff,

It works!! I was able to load different userform on the same worksheet. Thanks a lot for the help.

 

[Fluff]

glad to help & thanks for the feedback