I have a world time that have a counter

[Legacy 420921]

i have question time that counter for code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/FONT][/COLOR]
[COLOR=#000000][FONT=Courier]Dim hour As Boolean[/FONT][/COLOR]
[COLOR=#000000][FONT=Courier]hour = Not (hour)[/FONT][/COLOR]
[COLOR=#000000][FONT=Courier]Do While hour = True[/FONT][/COLOR]
[COLOR=#000000][FONT=Courier]DoEvents[/FONT][/COLOR]
[COLOR=#000000][FONT=Courier]Range("A3") = TimeValue(Now)[/FONT][/COLOR]
[COLOR=#000000][FONT=Courier]Loop[/FONT][/COLOR]
[COLOR=#000000][FONT=Courier]End Sub

how i get to start when you open the file witout click anywhere in a cell


TY Thomas

 

[Legacy 420921]

click on link to get the file


ty Thomas

https://1drv.ms/x/s!AnJwxxiz0Ezpg8hyanPwlWxcRArtxw?e=woi6kf

 

[Legacy 420921]

Click on ink to get picture

https://1drv.ms/u/s!AnJwxxiz0Ezpg8hz4-c75IFUCi6x_w?e=9TzZQi