How to allow only date format in specific cells in Excel?
Restricting specific cells to only allow date formats in Excel can be useful for ensuring data consistency. This guide introduces two methods: using the Data Validation feature or a simple VBA code to enforce date-only input in selected cells.
Allow only date format in specific cells with Data Validation function
Allow only date format in specific cells with VBA code
Allow only date format in specific cells with Data Validation function
In Excel, the Data Validation is a powerful function which can help you to create drop down list, to prevent duplicate entries, etc. It can also help you prevent entering any data format other than a date in specific cells. Please do with following steps:
1. Click Data > Data Validation > Data Validation, see screenshot:
2. In the Data Validation dialog box, click Settings tab, and then choose Custom from the Allow drop down list, then enter this formula: =AND(ISNUMBER(B2),LEFT(CELL("format",B2),1)="D") into the Formula text box, see screenshot:
Note: In the above formula, B2 is the first cell of the column which you want to restrict the data format.
3. Next, click the Error Alert tab in the dialog box and perform the following steps:

(1.) Check Show error alert after invalid data is entered option;
(2.) Under the Style drop down, please select Stop option;
(3.) Type the Title and Error message that you want to display in the prompt box.
4. After finishing the settings, click OK button, and now, when you enter data that is not a valid date format, a prompt box will appear to notify you as following screenshot shown:
Allow only date format in specific cells with VBA code
The second method introduces a VBA code to accomplish this task.
1. Activate the worksheet that you want to use.
2. Then right click the sheet tab, and select View Code from the context menu, see screenshot:
3. In the displayed Microsoft Visual Basic for Applications window, copy and paste the below code into the Module, see screenshot:
VBA code: Only allow date format entering in specific cells:
Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub
4. Save and close the code. Now, when you enter a value that is not in date format in the range B2:B12, a prompt box will pop out to remind you, and the cell value will be cleared at the same time, see screenshot:
Best Office Productivity Tools
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.





- 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