I have the following code and it works great it was given to me by some of the board members. Is ther a way to insert additional language in it that will add minutes to the Now time. Also the same in reverse is there language that will Subtract minutes from the Now? I know nothing about code but I am trying to learn. The following is the code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("B9:B44"), Range("D9:D44"), Range("F9:F44"), Range("H9:H44"), Range("J9:J44"), Range("K9:K44"))) Is Nothing Then Exit Sub
If Selection.Rows.Count > 1 Then Exit Sub
If Selection.Value <> "" Then Exit Sub
With Selection
.Value = Now
.NumberFormat = "hh:mm"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Union(Range("B9:B44"), Range("D9:D44"), Range("F9:F44"), Range("H9:H44"), Range("J9:J44"), Range("K9:K44"))) Is Nothing Then Exit Sub
If Selection.Rows.Count > 1 Then Exit Sub
If Selection.Value <> "" Then Exit Sub
With Selection
.Value = Now
.NumberFormat = "hh:mm"
End With
End Sub