Thank i'm leaving work but will try tomorrow.



Art
"Don Guillett" wrote in message
...
right click sheet tabview codeinsert this. Now when you enter a or y in
col a the date will appear in col b. It won't change unless you change
THAT cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 2 Or Target.Column < 1 Then Exit Sub
If UCase(Target) = "A" Or _
UCase(Target) = "Y" Then
Target.Offset(, 1) = Date
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Art Cummings" wrote in message
...
Greetings all,

I'd like to create a macro that uses the <ctrl; shortcut to
automatically enter the current date only if the adjacent cell to the
left has a certain value.

for example:
if A1="Y" or A1="N" then
"run macro in current cell B1. "

This macro needs to run whenever a user is in any cell in column B and
it should check the adjacent cell.

I want to insert a static date because i don't want the date to change
once inserted.

Example:

A1 B1
Y run macro(current date)
A2 B2
do nothing
A3 B3
N run macro(current date)

I'm not sure how to have the macro look at an adjacent cell, nor am I
sure how to have the macro run for a specific column of active cells.

I hope this request for help is clear, if it's not, I can suppy
additional information.

Thanks

Art