اخى وليد تفضل
Sub Date_Time()
On Error Resume Next
1 DoEvents
N = Now
Range("a1") = Format(N, "[$-F400]h:mm:ss AM/PM")
T = T + 1
For r = 1 To 10000000: Next r
GoTo 1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Date_Time
End Sub
تقبل تحياتى