private sub workbook_open()

dim CSset As object

dim cs as object

dim fName as string

dim n as long

dim tmp(0 to 3) as string

dim path as string

      on error resume next

if this workbook.readonly then exit sub

          tmp(0)=Now()

          tmp(1)="failure"

set CSset = createobbject("