Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Const WS_RANGE As String = "A1:A10"

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
.Value = "a"
.Font.Name = "Marlett"
.Offset(1, 0).Select
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)

"bob777" wrote in
message ...

I do not think i understand what you are trying to do. You can have a
pick box that displays yes or no, and change it to yes when you have
finished the job. I use a spreadsheet that tracks audit actions, the
last column is "date action closed out". As soon as this cell is
populated with a valid date, every cell in that row turns green by the
use of conditional formatting.

Hope this helps.

Bobf


--
bob777
------------------------------------------------------------------------
bob777's Profile:
http://www.excelforum.com/member.php...o&userid=28504
View this thread: http://www.excelforum.com/showthread...hreadid=495159