Hi Kiran,
Sorry, but I can't understand your response.
Dave.

"kiran" wrote:

Hi Dave,
thanks for your swift responce i copyed & pated the code while executing no
change want to do ne change

"Dave" wrote:

Hi,
Try this.
Right-click the sheet tab, then copy and paste the following into the sheet
window:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Variant
On Error Resume Next
Application.EnableEvents = False
If Intersect(Target, Range("C1:C1000")) Is Nothing Then Exit Sub
A = Target.Value
If Target = Date Then Target.Value = A
Application.EnableEvents = True
End Sub

Change the range "C1:C1000" to suit your data.

"kiran" wrote:

Thanks Dav,
Can i have a macro to fix the date