View Single Post
  #2   Report Post  
Bob Phillips
 
Posts: n/a
Default

Private Sub Worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("I7")) Is Nothing Then
Range("J7") = Now
Range("L7").Value = ActiveWorkbook.BuiltinDocumentProperties("author")
End If

End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"chris w" wrote in message
...
Below is a change declaration I have in a sheet, is it possible to have a
similar change declaration using docProps in another cell? So when the
change is made to cell "I7" the date is put in "J7" and the current author

is
put in "L7"

I tried to copy what I have below except change = Now to =
DocProps("author") and that didnt work.

Private Sub Worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("I7")) Is Nothing Then
Range("J7") = Now
End If

End Sub