Alechko,
try this one:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not (Intersect(Target, Range("$E$1:$E$5")) Is Nothing) Then
Target.Value = Time
End If
End Sub
I know, that I can alter the lower- and upperlimits of a scale in a graph by adding values to the minimum- en maximum-options for Scale.
Is it possible to make this more dynamically, for example to use a Name there?