There's a line in Chip's code that looks like this:

If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
Exit Sub
End If

Change it to whatever range you want:

If Application.Intersect(Target, _
Range("A1:A10,b7:q13,x9,z1:ai17")) Is Nothing Then
Exit Sub
End If

michaelberrier wrote:

I found Chip Pearson's excellent code for entering times without
having to use the ":" key, but I am only able to do it in a single
column. Is there a loop I can use so I can do it with multiple
columns? Trying to insert another column reference or another sub
generates an error.

Thanks!

--

Dave Peterson