Nilesh,
If you add an event procedure for the worksheet's .SelectionChange event, you can set the cell's value to the current date/time, and then format the cell to display that value however you want. For example:
..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
..With ActiveSheet.Cells(Target.Row, Target.Column)
.....Value = Now()
.....NumberFormat = "mm/dd/yyyy"
..End With
End Sub
..
Note that you will need to do this for EACH WORKSHEET in a workbook where you want this behavior.
Michael S. Meyers-Jouan

Hi Michael,
Thanks for quick reply.
The coding you provided is userful for me.
Can u do one more favour
1)I want to get only time in the selected cell when I click it and it should be in some range e.g (A1:A50)
Thanks in Advance
Nilesh