Open form if cell in a range is selected

Hello everyone,

I have a form, called "Kalender", which has a Calendar. This form has the following code:

Private Sub Calendar1_Click()
ActiveCell.Value = Me.Calendar1.Value
End Sub

In my workbook I have this code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$B$5" Then Kalender.Show
End Sub

When I click on B5, the form opens. And whenever I pick a date, the value copies to B5.

I'm trying to achieve this in a range. I want this to happen starting at B5 till B150.

This should be a simple task, but I cant get it to work.

Thanks a lot in advance!

Marco

Try this code out and let me know if it gets you the desired result

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(ActiveCell, Range("B5:B150")) Is Nothing Then Kalender.Show
End Sub

No problem, glad i could assist.