Sub AddKeyword()

ActiveWorkbook.BuiltinDocumentProperties("Keywords ").Value = "You
Text"

End Su

--
jt
-----------------------------------------------------------------------
jtp's Profile: http://www.excelforum.com/member.php...fo&userid=2113
View this thread: http://www.excelforum.com/showthread.php?threadid=56860