Hi
In workbook code module Paste this :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopIt
End Sub
Private Sub Workbook_Open()
GetStart
End Sub
in Standart Module paste this:
Sub GetStart()
Range("A1").Value = Format(Now, "HH:MM:SS")
Application.OnTime Now + TimeValue("00:00:01"), "GetStart"
End Sub
Sub StopIt()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "GetStart", , False
End Sub
Save your file in xlsm format , close it and Reopen ..
HTH
Rajan.
On Tuesday, 19 June 2012 15:49:10 UTC+5:30, suman kumar wrote:
> Hi,
> every one..!
> i'm trying to write a macro to create a digital watch in excel please
> guide me..
>
> Regards,
> @Suman
> Send on the move with Galexy y.
>
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
To unsubscribe, send a blank email to excel-macros+unsubscr...@googlegroups.com
