Macro to Activate Date Picker in Asap Utilities

[howard]

I have Asap Utilities and would like a macro loaded in the sheet module to activate the Date Picker when double clicking cell D1


Your assistance is most appreciated

 

[howard]

I managed to find code on the ASAP Utilities Website to activate the date picker and made a small change

When I double Click D1 the ASAP utilities Date Picker is Activated. I select a date and it insert this in D1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' Ensure the target is D1
    If Not Intersect(Target, Me.Range("D1")) Is Nothing Then
        Cancel = True ' Cancel default double-click action
       
        ' Trigger ASAP Utilities Date Picker
        On Error Resume Next
        Application.Run "'ASAP Utilities.xlam'!ASAPRunProc", 285
        On Error GoTo 0
    End If
End Sub