Trigger macro on click

Hello forum,

I have made a macro to activate a pop-up calendar.
Right now the macro is activated either by right clicking and choosing insert date OR by holding down the [CONTROL] and [SHIFT] keys and pressing [C]
I want the macro to be activated every time I click on specific cells, that is column B and column H.
Is that possible?

I attach the file, the macro is called OpenCalendar
OB Wheel.xlsm

Many thanks in advance
Ioanna

One way:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub
    
    If Target.Row > 1 Then 'exclude header row
        If Target.Column = 2 Or Target.Column = 8 Then
            OpenCalendar
        End If
    End If

End Sub

Originally Posted by Palmetto

One way:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub
    
    If Target.Row > 1 Then 'exclude header row
        If Target.Column = 2 Or Target.Column = 8 Then
            OpenCalendar
        End If
    End If

End Sub

Yes that line would be good housekeeping

Hi,

You have to add the code to the sheet you want this to occur on in your workbook that is sheet1 and then use the SelectionChange event handler:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim NewCol As Long

    NewCol = Target.Column
    
    If NewCol = 2 Or NewCol = 8 Then
        Call OpenCalendar
    End If
    
End Sub

This will open the calendar if you click in Column B or H.

Don't forget to mark as Solved and Add Reputation.