KutoolsforOffice — One Suite. Five Tools. Get More Done.

How to pop up a calendar when clicking a specific cell in Excel?

AuthorSiluviaLast modified

If you frequently enter or update dates in the same range, you can use a pop-up calendar instead of typing each date manually. This tutorial shows how to create a calendar for a specified range with VBA and how to use the Date Picker in Kutools for Excel without writing code.

Compare the two calendar methods

MethodBest forKey difference
VBA with MonthView ControlShowing a calendar automatically when a cell in a specified range is selectedRequires a UserForm, two VBA procedures, and 32-bit Excel.
Kutools for Excel Date PickerInserting dates into blank cells or replacing existing contentNo code required; supports all-cell, date-cell, and smart modes, with optional automatic popup.

Pop up a calendar when clicking a specific cell with VBA

This method creates a calendar in a UserForm and displays it when you select a cell in the specified range.

📝 Note:

This method uses the Microsoft MonthView Control and works only with 32-bit Excel.

Step 1: Create a UserForm with a calendar

First, create a UserForm containing the calendar that will appear when you select a cell.

  1. Press Alt + F11 to open the Microsoft Visual Basic for Applications window.
  2. Click Insert > UserForm.
  3. When the UserForm and Toolbox windows appear, right-click a control in the Toolbox, and then select Additional Controls.
  4. In the Additional Controls dialog box, select Microsoft MonthView Control, and then click OK.
    Selecting Microsoft MonthView Control in Additional Controls
  5. Click the MonthView button that has been added to the Toolbox, and then click inside UserForm1 to add the calendar.
    Adding the MonthView calendar to UserForm1

    You can resize the UserForm by dragging its border to fit the calendar.

  6. Double-click the calendar in UserForm1. In the Code window, replace the existing code with the following VBA procedure.

    VBA code: Create a UserForm with a calendar

    Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    'Updated by Extendoffice
    On Error Resume Next
    Dim xRg As Object
    For Each xRg In Selection.Cells
        xRg.Value = DateClicked
    Next xRg
    Unload Me
End Sub

    This code inserts the date selected in the calendar into the currently selected cell.

    Adding the calendar DateClick code to UserForm1

Step 2: Activate the calendar when clicking a cell

Next, specify the cells that should display the calendar when selected.

  1. In the Project pane, double-click the sheet containing the target cells. Paste the following code into the sheet's Code window.

    VBA code: Display the calendar when a cell is selected

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Updated by Extendoffice
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

    In the code, A2:A10 is the range that activates the calendar. Change this reference to the range you want to use.

    Adding the SelectionChange code to the worksheet module
  2. Press Alt + Q to close the Microsoft Visual Basic for Applications window.

When you select a cell in the specified range, the calendar appears. Select a date in the calendar to insert it into the active cell.

Calendar displayed after selecting a cell in the specified range

Use Kutools for Excel to display a Date Picker

Kutools for Excel's Date Picker can insert dates into blank cells as well as replace existing content, without VBA.

Kutools for Excel offers over 300 advanced features to streamline complex tasks, boosting creativity and efficiency. Integrated with AI capabilities, Kutools automates tasks with precision, making data management effortless. Detailed information of Kutools for Excel...         Free trial...
  1. Click Kutools > Date Picker. If you do not see it here, find it under Kutools > View.
  2. Choose a mode from the Date Picker menu:
    • Enable for All Cells: Includes blank cells; selected by default.
    • Enable for Date Cells Only: Cells containing dates or formatted as dates.
    • Smart Enable: Detects cells likely intended for dates.
      Enable the Kutools Date Picker for all cells
  3. Select a suitable cell and click its calendar icon. Check Auto popup to open the calendar automatically on subsequent eligible selections.
  4. Choose a date. Click Insert Date or move to another cell to confirm.

📝 Notes:

  • Inserting a date replaces existing cell content.
  • Cancel and Close cancels the input or change.
  • Alt + Down Arrow also opens the calendar.

Kutools for Excel - Supercharge Excel with over 300 essential tools, making your work faster and easier, and take advantage of AI features for smarter data processing and productivity. Get It Now

For another way to insert dates—especially when you want to choose a specific format before insertion—use the Insert Date feature in Kutools for Excel. It lets you select a formatted date from a calendar and insert it into the selected cell with a double-click.

Insert a formatted date into a blank cell with Kutools for Excel

Kutools for Excel - Supercharge Excel with over 300 essential tools, making your work faster and easier, and take advantage of AI features for smarter data processing and productivity. Get It Now

Frequently Asked Questions

Why can't I find Microsoft MonthView Control in Additional Controls?

The VBA method in this article relies on a 32-bit ActiveX control and is not available in 64-bit Excel. If the control is missing, use a compatible calendar control or the Kutools Date Picker instead.

How do I change the cells that display the VBA calendar?

Replace A2:A10 in Range("A2:A10") with your target range. Make sure the SelectionChange code is stored in the correct worksheet module.

Related articles:

Best Office Productivity Tools

🤖Kutools AI Aide: Revolutionize data analysis based on: Intelligent Execution   |  Generate Code  |  Create Custom Formulas  |  Analyze Data and Generate Charts  |  Invoke Kutools Functions…
Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |  Round without Formula ...
Super Lookup: Multiple Criteria VLookup  |   Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup ....
Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List ....
Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ...
Featured Features: Grid Focus   |  Design View   |  Big Formula Bar   |  Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells   |  Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ...
Top 15 Toolsets:  12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more
Use Kutools in your preferred language – supports English, Spanish, German, French, Chinese, and 40+ others!

Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time.  Click Here to Get The Feature You Need The Most...

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!

All Kutools add-ins. One installer

Kutools for Office suite bundles add-ins for Excel, Word, Outlook & PowerPoint plus Office Tab Pro, which is ideal for teams working across Office apps.

ExcelWordOutlookTabsPowerPoint
  • All-in-one suite — Excel, Word, Outlook & PowerPoint add-ins + Office Tab Pro
  • One installer, one license — set up in minutes (MSI-ready)
  • Works better together — streamlined productivity across Office apps
  • 30-day full-featured trial — no registration, no credit card
  • Best value — save vs buying individual add-in