Combining Code each works separately, but trying to combine.

[skeeeter56]

I am designing a sheet which has a table on a sheet, it has a number of columns, 2 of which are for inputting dates.

I am trying to get it so that when you click cell pop calendar appears select date and this in placed into cell.

I can get it to work with the below code for each column, but I am trying to combine so that when either cell in either column is clicked the calendar pops up and inserts date in cell clicked.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'If Not Intersect(Target, Me.ListObjects("March22").ListColumns(1).DataBodyRange) Is Nothing Then
      
        'Call Calendar.SelectedDate(ActiveCell)
    If Not Intersect(Target, Me.ListObjects("March22").ListColumns(6).DataBodyRange) Is Nothing Then
        Call Calendar.SelectedDate(ActiveCell)
    End If

End Sub

I hope this is possible

 

[Snakehips]

@skeeeter56 Not tested but try like

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Count < 1 Then Exit Sub
    If Not Intersect(Target, Me.ListObjects("March22").ListColumns(1).DataBodyRange) Is Nothing _
    Or Not Intersect(Target, Me.ListObjects("March22").ListColumns(6).DataBodyRange) Is Nothing Then _
    
        Call Calendar.SelectedDate(Target)
    End If

End Sub

 

[skeeeter56]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count < 1 Then Exit Sub If Not Intersect(Target, Me.ListObjects("March22").ListColumns(1).DataBodyRange) Is Nothing _ Or Not Intersect(Target, Me.ListObjects("March22").ListColumns(6).DataBodyRange) Is Nothing Then _ Call Calendar.SelectedDate(Target) End If End Sub

That did the trick thanks so much.