Posts by Wenda

Re: Unable To Share Macro As Add-in Or Template

You ROCK!
I moved it all... it works great! -except for the duplicates on the right-click menu... but I am working on that.

Re: Uable To Share Macro As Add-in Or Template

I can copy and paste, with the best of 'em.
this all in VBAProject (PERSONAL.XLS)
this first bit is in the workbook.
the second is in the userform folder
and finally the module

I seperated each instance with my understanding of what a code tag is.. I hope I did it correctly. Thanks.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Applciation.CommandBars("Cell").Controls("Insert Date").Delete
End Sub


Private Sub Workbook_Open()
    Dim NewControl As CommandBarControl
    Application.OnKey "+^{C}", "Module1.OpenCalendar"
    Set NewControl = Application.CommandBars("Cell").Controls.Add
    With NewControl
        .Caption = "Insert Date"
        .OnAction = "Module1.OpenCalendar"
        .BeginGroup = True
    End With
End Sub

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


Private Sub UserForm_Initialize()
    If IsDate(ActiveCell.Value) Then
       Calendar1.Value = DateValue(ActiveCell.Value)
    Else
        Calendar1.Value = Date
    End If
    
End Sub

Sub OpenCalendar()
    frmCalendar.Show
End Sub

I am new to VBA. I created a macro in VBA that pops up a calendar with keyboard short cut and places the date in selected cell. It works great on my pc. I can't share the macro with anyone. I saved it as an add-in...installing the add-in did nothing. Then I saved it as a template...the template did not open with any macros associated. both cases, no errors. no message to enable to disable macro.