Here is some code to put the date into the Active Cell.
'Sub to enter today's date into the active cell and format the date in your 'Short Date' format
'(see Regional and Language Options - Customize - Date Tab - Short Date)
ActiveCell.Value = Format(Date, "Short Date")
You can attach this code to a button on a worksheet or place it in a standard module to make it accessible from the Cell - right click menu, as described further on.
To create a button use the Controls Toolbar and select the button. In Design mode, right click button and select view code.
When entering code attached to a button, the opening Sub and closing End Sub are already in place.
Enter the code, but excluding the line starting 'Sub" and the 'End Sub' line.
To access the code from the Cell - right click menu, place the code in a standard module:
Enter the VBA window by clicking Alt + f11 (The left Alt key and function key #11 at the same time)
In the Project Explorer window (usually on left), find VBAProject(Your.xls)
Right click on it and select Insert then Module (not Class Module)
Double click Module1 which is under the Modules folder
Enter the code in the main window.
To create the extra entry in the Cell right click menu:
In the Your.xls workbook goto the VB window and select the ThisWorkbook object, under Your.xls. Double click it.
In the main VB code window enter the following:
Private Sub Workbook_Open()
' Add controls to cell right click context menu
Dim objNewCtrlIT As CommandBarButton
On Error Resume Next
' Clear any existing copies of new menu item
On Error goto ErrHnd
' Create new control
Set objNewCtrlIT = Application.CommandBars("Cell").Controls.Add
.Caption = "Insert Date"
.OnAction = "Module1.Enter_Date"
.BeginGroup = False
Set objNewCtrlIT = Nothing
' error handler
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Delete items from shortcut menu on close
On Error Resume Next
The .OnAction line can be modified to point to the Module and subroutine name you have used for entering the date subroutine if different to the example used here.
You could use a standard module in Personal.xls and then the Insert Date would be available to all workbooks opened.