VBA Code

[chef]

Hi
This might be simple but I'm not sure how to glue together.

I have 3 separate basic user forms with different contact lists

I have the following code that I got help with

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "D21" Then
UserForm1.Show
End If
End Sub


What I want to be able to do is have the user click on cel D21 then user form 1 shows or click on cell D22 then UserForm2 shows or D23 then UserForm3 shows.

I tried to copy and paste the above code and just change the cell and form reference but doesnt seem to work.

can someone give me a nudge on how to glue this together

 

[VoG]

Try

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "D21" Then
    UserForm1.Show
ElseIf Target.Address(False, False) = "D22" Then
    UserForm2.Show
ElseIf Target.Address(False, False) = "D23" Then
    UserForm3.Show
End If
End Sub

 

[chef]

Thank you so much for this and the quick reply.

Much appreciated