╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   ¤   ■   ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               Root Entry        аЧсb╬ку`М╠%о`Оlat[╠@AddCataloger956.DES(        =AddCataloger956.SRC(            ╪ADDCATALOGER956.SRC(            ■   ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               Adds current date and cataloger's intials to a new 956 field.'MacroName:AddCataloger956 'MacroDescription:Add a 956 field containing the cataloger's initials and today's date Option Explicit Sub Main Dim CS As Object Set CS = CreateObject("Connex.Client") Dim CatInitials As String Dim TodayDate As String Dim bool As Integer CatInitials = "tsrs01" TodayDate = Format (Date, "YYYYMMDD") bool = CS.SetField(1, "956 " & TodayDate & " ▀b " & CatInitials) End Sub