Dear Bob,

That's classy. You've saved me the next dozen weekends or so, of
meticulously editing hundreds of rows...

With my hazy knowledge of Basic, I can kind of see what's going on, but:

How do you trip the cell back to an empty state?

Do I need an "Else...." line, or would should I stick another "If" condition
in there?

I realise that it's something to do with the "Not Intersect.... is Nothing"
but my mother always taught me that double-negatives were a "No-no." If
you'll pardon the pun.

Presumably I can say if the "Not Intersect" is NOT Nothing...?

Could I get it to work off the back of a double-click, so that it's not eay
accidentally to over-write, or am I taking the mickey?

Kind regards and thanks once again,

Lambs

"Bob Phillips" wrote:

Here is a way without checkboxes. All you do is select a flagging column (I
have defined, B,D,F,H), and the date pops up next door.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "B:B,D:D,F:F,H:H"

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
.Font.Name = "Marlett"
.Value = "a"
.Offset(0, 1).Value = Date
.Offset(0, 1).NumberFormat = "dd mmm"
End With
End If

End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Lambs" wrote in message
...
Hi,

I am devising a spreadsheet to log the progress on a list of clients,
through a set series of procedures. The idea is that each time a certain
stage has been passed, the corresponding date is entered in the relevant
column, at that client's row.

I have thought about using check boxes by each date column, so that when
the
box is checked, the corresponding date is automatically filled in.

I know that one can 'tie' a cell to a check box, and it will flip from
'True' to 'False' accordingly. I should like that box to show today's date
when ticked, and revert to blank when unticked.

If it works, there will be several hundred of these little critters, and
copying them can be a problem - they all want to 'tie' themselves to the
same
cell, when I use the normal copy and paste function.

If anyone can advise on code to get the tied cell to show correct info.
rather than just True/False, I'd be much obliged.

If anyone can advise on how to get copied check boxes automatically to
refer
to the next cell down, or in line, or some kind of automation/macro that I
could set up, then I'd be even more grateful.

If anyone thinks that the check-box idea is fatally flawed and/or can
propose a more elegant solution, then please let me have your thoughts.

Thank you,

Lambs