ࡱ> Q3N2Microsoft Forms 2.0 FormOBMEVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} setAttributeForm Caption = "Set Attribute Meta-Data" ClientHeight = 6390 ClientLeft = 45 ClientTop = 435 ClientWidth = 10020 StartUpPosition = 1 'CenterOwner TypeInfoVer = 50 End CompObj/AEVBFrame:showDocMetaDataForm(Df   !"#$%&'()*+,-./0123456789;<=>?@ABCDEFGHIJKLMNOPQRSTUVXYZ[\]_abcdefghijklmnoprstuvwxyz{|}~ @\pOffice 2004 Test Drive User Ba= ThisWorkbook=h(!<X@"1HArial1HArial1HArial1HArial1HArial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)                + ) , *  8dq:F3ffff̙̙3f3fff3f3f33333f33333\` Sheet1 Sheet2- Sheet3"N3O J`P 9,#h#hP( e ed }y[#P#hJ`Pl9,*< *<*<*<9, 2CPRU4SxN3O  ij(xOe1PȞ( ijT9^022̀UOPh`jUH22̀UOO$PS|h*\ \ $HOO4 HPOS$9J`P 2ȶtN2Hh YԿ,RZ c[_okN3mJ`Pl9,nij( e J( Pnij p'^0U 0ȨPnihܘȘhHN2J`PпnȼhccN @ s  dMbP?_*+%"??U } >@@7 Sheet1 @   dMbP?_*+%"??U } >@@7 Sheet2 @   dMbP?_*+%"??U } >@@7 Sheet3 <7U[ܢ0ːF7M[ܢ0ːx N䪈}#7M[ܢ0ː7U[ܢ0ː t4EMThisWorkbook(:__SRP_2+W__SRP_3^eSheet1)`0PLSSS"6 <<<'0{00020819-0000-0000-C000-000000000046}FK*\Rffff*1246dd4a6e*\Rffff*1346dd4a6e`k9h@$ $ $:P $$`<8@@@p "  (8 HThis launches the toolbar @Bl@8`Attribute VB_Name = "ThisWorkbook" Bas0{00020819-0C$0046} zCreatablAFalse PredeclaDIdTru !E xposeTemplateDeriv#bCus`tomiza P Sub {_Open() ' launches the toolbLarjeT.! End+ Ur ( 9 a 4  `iY@m   41A!p!pUr @` pxT#EM (LSSS<'0{00020820-0000-0000-C000-000000000046}FK@($H@0 xAttribute VB_Name = "She et1" Basp0{0002`0820- C$0046} zCreatablFalse PredeclaIdTru !@ExposeTemplateD0eriv#bCustomiza xY#EM (LSSS<'0{00020820-000Sheet2*q0Sheet30CheckColumnC__SRP_E# 0-0000-C000-000000000046}FK@($H@0 xAttribute VB_Name = "She et2" Basp0{0002`0820- C$0046} zCreatablFalse PredeclaIdTru !@ExposeTemplateD0eriv#bCustomiza x䪥#EM (LSSS<'0{00020820-0000-0000-C000-000000000046}FK@($H@0 xAttribute VB_Name = "She et3" Basp0{0002`0820- C$0046} zCreatablFalse PredeclaIdTru !@ExposeTemplateD0eriv#bCustomiza Ur~}  l l  lA ly lUr ` 0 6 8  p  x &        0 @ H   P  `  h  x ( V    4 ( ` h  " h $ (8@X&`  & B (8H "X   6 .,,H  Hx  " 0 P X ` h x ( @  0 P  X hx 2 2H P0p      "  ( "@ h p :x :   8 X$x$$$$  $$$  8H X h 6p  & 0@HXhx        (Vx.11AEM(<:<2<d 6FK*\Rffff*1846dd4a6f  @` ,` 0`1 *`da:Per@6 80$`< @> @@ `B D$@F @H @J @L @N `P R`$`T`V X$ b$@f `h`z@| @~ `` $` .`@6  8($ $`< (@> @@ `B & D"$@F 8@H 36$@J @L if t@N Cor`P RXh$`T`z0@| @~ Meta` `t $`ed@A@ pion $H(G"BPX` "h@p "  " ,0@H`&h  & $0 88 Bp    ( J@      6 X .h,, H @PX "p        ( @@  0    (2H 2 08 @ P  Xhpx  "   "    :  : P       $ $ $ 0$ @$  H  P$ h  x$ ( $         8@ P4`  Check Column? $ & Sort Sheets$" (@A*h l@ Check Sheet? $ & Sort Sheets$" (@A.h@l8 4A65536$2%@BJl&Check if the current Column is CorrectZZ8ZPhZZ0ZHZhZZ'<MetaData'B Z!'@ Select Active Sheet \!^!H Multiple Areas Not allowed@A"h \%^.X'Get Single Multiple Selection 1C "Mul@tiple B Not allowed"!BSet = L(1) 'G`Sing F s % B9Q:. ts FJtoUpc="O[d&0#K=fL&NFor Each#YIn'Ysa)\.' ʍ,1h'Nextb GbstrETNewnw7i ^ᚂ eY!``IndexBInteger FS =B(w(attrRowNo + 1,D), Num's -&) b 'If Has bee$n thCheck if it is of DataTyp jW= "YES" :d' ZberFor@= 1 To.count2 8Is3eric(&).Value)DFalseaI'%th@Hc. exrrot  Spelec1 ion.rior6.B"F3BOBo`rders@A1!flag Tru˄E]b'DeNE]AǢ [N'? `2xlg4Non&'' 2 jN=5End IfVNextfrz:yt9')  O'Not BJcEreany j )'O>s-dVB@A.Trimt & """! 6_o'>ZV? o[<@u]Z'^Y= N2Ivi:'Display Meta2 hY6Msg Box "TaDgsve . PleapsP5m usi``Apibute Button" >Worksheets(actS).Activ|at#_@5 Eas PreseReds5c: ASub @ Ga2 WithaA(|) cE⡐֟s0 ObeJ Specificat- fpyWhole R. ` Hint0ute S 'By H0ighl0WrfoP . 1ws, wSht1OBoPaQName, e, sht!1StrWilǏa>No, ndq, @;~saus8edR max-r D"B5 @eiveT r('s"4 #(/s Fto{pp)D 0D=v&!iEachIn ߷3@2.b nK'%6&m@)8d 1?BGaBcotal  a?͐1s<Ha@D"ԒF$edRexP.CallDetermineU{  !7$s` from7jo%T' $.q 'Max(bxear>3 =!eq "b ? '>quWe Load epIaUrdlu1show@bP  Q12Q2x;>Y ;! 078a'Start0 op on5 r z For index = 1 To NumCols  'Get Values From Me@taData JcPount5 ,Dim colSAs String n= "" Worksheets(shtName).Acti0vate (Zfi llRng~No th b !Range(Cells(1,), b )3 'Check ParP tes. Row and of first AtbuaumIłEAIPf In(y( )., "SE:") Then!d= VBA.Mid$@4, Len)%IE?If Next * 7&"YES"0hMoaOCL^O as @yNo@[CInt(S)SU"9a7RWk7`Yex?OEEE>_DT  d@Type@76 ` bEls *f GgNO멩V¿ !}%@1()p'Shift BaOriginpal S!*actdinbـý thabtlum Rׂ# egerj 2a= *+ nЉRows -6)J 'aHa`s bee t@ if it is / $W5$:Ap9 P ber[r[,oa|.oIs`eric(PRngaHpFa@4d'#s c. erro+>Select ion.A$`rior.3_oXBorde  *Z 8 HX$p Z  6  @ P`$x 6  " "@Zh  &6  $0 &X6  $ &6( H Xh& Z   6   @  P `,   6      , 0  `Z      6      (. H  x6      .   ( Z@Toolbar ButtonsZ`ZDelete Toolbar if it exists  ! !Chemistry Cyber-InfrastructureF @Bgj@Create a new Toolbar Chemistry Cyber-Infrastructure  !%p. 9".Protection = msoBarNoVerticalDocknAdd a Document MetaData Button n !%p. (  (Document MetaData (setDMetaData.setMetaData etaData ( LockDocMetaData.LockAttrMetaData (Add Unlock Facility n !%p. (UnLock (Unlock Document MetaData n !%p. (  (Document MetaData (!LockDocMetaData.UnLockDocMetaData (Unlock Attr MetaData n !%p. (  (Attribute MetaData ("LockDocMetaData.UnLockAttrMetaData (l Soil Profile ( n !%p. (  (1setProfileDescription.ProfileDescriptionLinkSheet (Add soil profile button`  $4 acin `uedaLx۴Attribute VB_Name = "CreateToolbar" Public Sub d() Dim cP As CommandBar4' Bu`ttons(hctl 5Control"tsv Y #('Delegif it existlFor EachIn Appation.YiIf".hem&ry Cyber-Infrastructure" T8henEKNe xtO a new R SetI.Add(!C:="CB, _*`Posin :=msoRight, Menu:=False, TemporaryDtBWitL.VisiblATrue'.Protec3NoVerticalDock End wA'8@F@ument(taDxataDI= CYsBGType9D2cb@ -qSty2+C|ap0BD5"E(" OnAE?"@setDMe1.  =Column Headper LB+l?Hbxmck C, (4" B"Q`O8kO8st 4 [(c! .R )aFV%z2[&roszs%n&f!aroF}&&&?/C to Cells?(ub.oPQ_T 3 0Q.F  OJ"OOOOd _ OO6@(%OO ^EO¸OOOOձߔOOH?~.I7..L Facility6 /T!T666ABʳd?????R7߽P9oc+3  ub?^?^olEO O6osRion = "Attribute MetaData" cbtsub.OnActLockDozc.| pz'Add Unlb Facility0Set cbctlcbar.Controls.1(Type :=msoPo0pup)84.V@isibleA'4?L?End Sub aA !i t@|i ihb$i0viDdff|i ihi0b iZhXhhhxhii(bxhXi$  i  i ZhXhhhxh ii(bxhXi$ i 6xxi$ i i 6xxi$ i i ZhXhhhxhii(bxhXi$ i i ZhXhhhxh ii(bxhXi$i 6xxi$ i i 6xxi$ i i ZhXhhhxh ii(bxhXi$i 6xxi$ i i 6xxi$  i !i 6xxi$ i "i ZhXhhhxh ii(bxhXi$#i 6xxi$  i $i 6xxi$ %i &i ZhXhhhxh ii(bxhXi$'i 6xxi$  i (i 6xxi$ %i )i  t<$,xhX lIUr `pCrossLinkY:1__SRP_10 __SRP_11delColumnHeader t> 0 J v  X ` h " p x        &  0 8   @2 X  8      0 P `, h    8     ( H h x,    <  6P .`, 4 00P ..,,0 `..,, @P pCThis Creates a Crosslink from an Area of Cells to Sheet in the FileCreate a CrossLink to a Sheet? $ & Sort Sheets$" ( @Ah@l8@Max CrossLinks set to 50ZDelete CrossLinks %'lZ ZZ0H`xNoVertZZcuZ(Z@Z`xZZ CrossLink'Bata Z!'@ Select Active Sheet to return toGet Source Cell RangeSelect Source Data Cellsn %.  %!' %!l' !H %!' !H %!l' !:!'a"Please Select a Valid Source Range@A"hGet target Sheet NameZ(Z@'f 8 ` 8! f+ f 'f 8 Select a Sheet %x䪮\ H%%tEM (<2<: 6<FK*\Rffff*1946dd4a6f @` `` l-06 `TT Ma / ( Cor$@ 8@ @ @ 0@ `Meta@6 8t$@> @@ `B DX$@F @H @J @L @N `P R$`< `f` @ @ @ @ ` (CTh 8Ht in$`fCrea` Shee `@ `MM %$ 8$@ H@ @ cu@ @ x@ @ Cros@ !@ ive `@6 l Ra 8`Se$@> @@ `B! D!$@F '@H %@J !:@L Plea@N urce`P Rxrget$`< @@$ " JRX  " (  "(0@Hh x&  2 0P 8X ,(X` h ((0  8 <P 6 . 08,@p x     4  0@ p..,,  P.p.,, 0@` "hp (  " ( Z' FalseuhFire in the Hole6Got Cell Ranges Load Check if Cross Link Sheet Present B %'<0Get Total Rows and Columns That Have been Filled R r@Bt'Get Num Rows and Cols from Range Object R'Pa R!x!H'P(MaxCols to be SearchedhZXp''''Add Tags P $ P $$2.D CROSSLINK:YES$D(NUMBER: P %$D(SSHEET: $D( SASTARTCOL:  %$D( SASTARTROW:  %$D( SAENDCOL:  %$D( SAENDROW:  %$D(DSHEET: $D( DASTARTCOL:  % $D( DASTARTROW:  % $D( DAENDCOL:  % $D( DAENDROW:  % $D( @$`@BCreated CrossLink @A"lZ Z0ZPZh'f 8 ` 8! f+ f 'f 8 Select a Sheet %' @A"lSThis creates a CrossLink from an Area of Cells to another Area of Cells in the FileCThis Creates a Crosslink from an Area of Cells to Sheet in the FileBCreate a Cross Link From Cells on any sheet to Cells on any sheet? $ & Sort Sheets$" (@AhlZZ Z@XpZZZ0HZhZZ0HZ`Z CrossLink'B Z!'@ Select Active Sheet to return tohSelect Source Data Cellsn %.  %!' %!l' !H %!' !H %!l' !:!'a"Please Select a Valid Source Range@A"`hXPSelect Target Data Cellsn %.  %!' %!l' !H %!' !H %!l' !:!'a"Please Select a Valid Target Range@A"Hh@6Got Cell Ranges Load Check if Cross Link Sheet Present B %'<0Get Total Rows and Columns That Have been Filled R r@Bt'Get Num Rows and Cols from Range Object R'PaP R!x!H'P(MaxCols to be SearchedhAdd Tags P $ P $$2.D CROSSLINK:YES$D(NUMBER: P %$D(SSHEET: $D( SASTARTCOL:  %$D( SASTARTROW:  %$D( SAENDCOL:  %$D( SAENDROW:  %$D(DSHEET: $D( DASTARTCOL:  % $D( DASTARTROW:  % $D( DAENDCOL:  % $D( DAENDROW:  % $D( @$`@BCreated CrossLink @A"l׶Attribute VB_Name = "CrossLink" Sub 8She@et() 'ThisheatPes aHlf from an Area of Cells to | in th@e FileIf MsgBox(wML6a8`?", _1~vbOKCancel + vbQuestion, "Sort1s")) Then;XEnd If x {Delete~{Maxv#s s$etR50 Dim UserChoice As VariantY = /".(n1`2"{  QdN?Ops(1 To 12J)@SngNsourceRangOStartRowNo, s@CCol'", @get ws, wShtWorh: S@Iz= Applica.InputAppt:=" Datzv`nType:=8) u( Is N@othingAmFPalsekmsR!JH.‚(1).b #KumyT "A ?@\ 0c]= Z;E#C "P`G`&/alid 0:"fGoz)B`Aߣn$FaIBiZw i(1For EachCuIn fs5iA?y7GA i Next B  @m.[OpT( , !#B-ġ`Q"O"OExi|ub$&'FireH`yGotks Load Check i`! D.db"AetAdd($)v zTotal /b ңMs at Have beDenAledB ex D.CallDrmine#d 䗢 sS{#Objeck>P>Tru>ET= p.. .b9 '`usNbe SearchDmQ-dwE, d@isp(0.-s)(r{,'p Tag0Wh=%Y($N, + X1),b%0z2{)B $qQVal dROSSLINK0:YES@e2).fNUMBER:" &A.pr(y3xSSHxEETrL)4ASTARTC\OL[ 5R\OWc6END^{7}pRAi{8xDggFZ9_(10M +PsfDA(a-*"_>w_(ŋ).A!lC tepR "  SX2]Os cjanerُߏޏޏޢ stFa ony a/_=OK !+ H֨rs)߳tsRRGWgs;6@n~tsk]فXg @Dim ws, wSht As Wor@ksheettAttrName, actSh, sht$`Str infillRng2RangecolNo, count, `indexGiPreseNum RoColsDInteger!Fused_flauBoolean0= "CrossLink&"j =oiv eq.o'Selecct to retu rn0Start: Set source*Application.InputBox(pro@mpt:="0S Data Cells", Type:=8)+If (+Is PNoth)1False The {sJRowNo./(1)~. @] umEnd | Kd= \.p7EG:Msg` "P@L_a Vali'Os(E).2AatsoCre J * P Sub Ur~}  l l  lA ly l   l^Ur ````I``pUr~}   !pHUr  `pxource Range to target rangeZhosColumn_Headers'B Z!'@ Select Active Sheet to return toCheck if Sheet ExistsZZ'< 8 ` 8! B Activate the metadata sheet B$`@B'<h( 8&If Sheet not present then just get out <!No Column Headers have been Set..@A"shYNow get number of columns in Column Metadata Sheet sheet.. Directly corresponds to numberbof column headers set so cycle through and create the form. If delete then remove that columns andshift all crosslinks to left.Z R r@BtZ'Get Num Rows and Cols from Range Object R'Pa8 R!x!H'P(MaxCols to be Searchedh PNo Column Headers have been Set@A"sh5So we Get the Number of CrossLinks Here. Display them+and Ask user which one he wants to kick outAdd the OptionButtons''#Stores width of widest OptionButtonCreate Header On FormFor CrossLink Number forms.Label.1 !(!%p.   9 Serial Number999* 9,9.n Source Sheet forms.Label.1 !(!%p.   9 Source Sheet9d 99* 9,9.nxSource Cell Range forms.Label.1 !(!%p.   9 Start Row9 99* 9,9.n Target Sheet forms.Label.1 !(!%p.   9 Start Column9 99* 9,9.n8Target Cell Range forms.Label.1 !(!%p.   9End Row9T 99* 9,9.n forms.Label.1 !(!%p.   9 End Column9xI.._EM P<<<<:<2 6<< etFK*\Rffff*1646dd4a6f8 ` DD9#`@   p$  $ sers$ .doc$`.d``f$`CROS`(` @B (`@$ 8OL: $`< R $`P@D ive 08$`2@ '<`4!@6 te t@8 @: '<`<@> rese@@ @B No C`Deen @F `Ht nu`Lolum`et..@^ s to `$`b($D B(08@HPhp 4x 4 ( N@ D2 8X`hp "    , ,(X` `h h $0 X`p .x,  *@H <P 2 2 ( H*h       *0 8 @ X h p x *        (*@p x      *      0  @  H  P X * `               * 0( `      & F   X2 p2 2 2    P0 p             (  0* P          $ *  (08@PX `  h*   $*( X`hpx  $* (0 8 @  P `2 2PXhpx  6*  .(.X  .02HV 8 @X*`    @@   > *0@ H(`4    ( 8(Px     Z@As VBComponent{ZXZxZZZZ \Z8ZP- Hide VBE window to prevent screen flashingsers. Application.VBE.MainWindow.Visible = False Create the UserForm !"!$%p.Width ,&GRead CrossLink Sheet and Load the Friggin Forms with the CrossLink as a>options button with the effective SMicrosoft Forms 2.0 FormOBMEVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} showDocMetaDataForm Caption = "Set Document Meta-Data" ClientHeight = 6450 ClientLeft = 45 ClientTop = 435 ClientWidth = 8550 StartUpPosition = 1 'CenterOwner TypeInfoVer = 52 End  99* 9,9.n  'Z Z@'2 f P$Make the Userform Buttons and Labels f$ f$$2.DZXpZZ0ZH` f'Get Column Header Number$D!$D!  %'4FGet Source Sheet Source Range$D! $D!  %U'8$D!$D!  %U'6$D! $D!  %U'<$D! $D!  %U':Sets Selection Buttonforms.OptionButton.1 !(!%p.  9Column Header: 99*9 9, 9J9. 2 fF9g5  F5'gnSets Source Sheet Label forms.Label.1 !(!%p.   9 499*d 9 9,9.n8Sets Source Sheet Range Label forms.Label.1 !(!%p.   9 899* 9 9,9.nSets Target Sheet Label forms.Label.1 !(!%p.   9 699* 9 9,9.nSets Target Sheet Range Label forms.Label.1 !(!%p.   9 <99*T 9 9,9.n`Sets Target Sheet Range Label forms.Label.1 !(!%p.   9 :99* 9 9,9.n  ' f Add the Cancel buttonforms.CommandButton.1 !(!%p. Cancel99*,99 9,n Add the Delete buttonforms.CommandButton.1 !(!%p. Delete99*,9^9 9,np  '/ Add event-hander subs for the CommandButtonsZx Worksheets( @ ).Activate 'L !N5P'  Sub CommandButton1_Click()@CR   GETDELETE_RET_VAL=False@CR  Unload Me@CR  End Sub@CR  Sub CommandButton2_Click()@CR  Dim ctl@CR   GETDELETE_RET_VAL = False@CR   For Each ctl In Me.Controls@CR  A If ctl.Tag <> "" Then If ctl Then GETDELETE_RET_VAL = ctl.Tag@CR  Next ctl@CR  Unload Me@CR  End Sub@CRn  Adjust the form Delete Column HeaderCaption;&&Width;&  Height;&n 0 Show the form ! !T%p@BV Delete the form Z !"!$@BX9 Pass the selected option back to the calling procedureZ \'  @$`@Bs Hh @7Now Get Option has Column Number which has to be delete#Basically Shift All Columns to LeftZZ f  P  f$ f$$2.^ f $ f $$2.` b Copy cRange to sRange b$`! b$^( b fUnload Last Column P$ P$$2.^ b Copy cRange to sRange b$^( bDebug.Print (GetOption) @$`@BfAttribute VB_Name = "delColumnHeader" Function d s() Dim TempForm 'AsComponentBNewLabHel >MSVs&. !OphBu|ttn(  /fmand01 Z 22TextLo caIIntehger)X! , iTopPos MaxWidth Long WasVisible BoolHean 'HidE window to prev screen flas hi( Appli^.VBE.MainW.3= False !Creathe UseriSetx= ThisWorkbookProject@]}s.Add(3CE. perties("?")100F08@8 'R CrossLin`k She@y Load &Friggin BBQ as aBd'oBs @w"i eff@,ive Source@ RangeStargrsht, act$S@τne_Cs"F =@.'Sel" Aف#;ureturn@$B'Check ifEExists)wShtAAfsFgA = #/ ) Each bIn f3 3If= qETheTaa'"Hmetada|ta8"g ( ).e D1@End IfNos' 4n4otcsc Dn just ;ouC@!Z(MsgBox "No E#: $: ha4bsamb..#(eIs NotpTruek@dEoᤥW .s.count '``ybearchedBh {Qs QP"'So we &qS(Ts.reA'splayQWm#Askr whi0C~& wantR ki@J6S`[|E4r= 4q0 'Sto.^r-wo Max$= #JE!/dApA"A@ms.? "?<@ J[=9+&P+,;l,l/$?k= s᫯++8v+2! fTarg lw;'O-MM?EM % O-p.Lrhjqn.?a3.K0-26?.? .?-?SO._B_Dd_D3qz 34rF...o[d{.a Q4 {V 5.p 42.4s0+op2N ext i 'p1!Cance8l bTCommƳ1000jf0K1 ("= ".44F15W6ZRDpte_w 2____2 / _ _ _ 3_"W#,E"event-h subs Pçmcom"Workss("`actco@+ ").A`v8ate#"ּCodeModul'XuntOfLine.InePtB Xp"Sub 1_Click()(2, " GETDELETE_RET_VAL=False" .InsertLines X + 3Unloa(d MR5REnd Sub.* CommandButton2_Click()6Dim c4tl'7' = y8For Each3 In~.Controls:9 If.Tag <> " The~n Mi0101Next11!12 JoWithBp 'Adjust the formA Temp@KC.Properties("Caption")@^"Delete}lumn HeaderH0 WidthB 550@HeightT opPos24 /.Show .`VBA.U-s .Add(E1.Name). ,=ThisWorkbook.VB-ject@ponents.Remove VrB:=J*AVP(ass'sGcted oL ba ck tocalling procedure!GetO As@teger="`U)0S"!.sheet@s(actS!).ActivatcExit Fdunonb!0IffB'N`0 dhas@Number whim@be dEBasi! y Shift All 'o Left!sRange, c "rjAIn$" A Fi`TG!To Ca~ - 1AS8et C " (C ells(mi), i))= V1 KAj 1 @5f 'Copy%&JC(j).Value&ۦbjBiB'La@@"w!')Ec"%!`"C'Debugint ~(F;[AXfZ__SRP_A j__SRP_BeDeleteLinkCexcelRange"ponentUserZZZZZ0ZH`xZZ- Hide VBE window to prevent screen flashing. Application.VBE.MainWindow.Visible = False  Create the UserForm !"!$%p.Width ,&GRead CrossLink Sheet and Load the Friggin Forms with the CrossLink as aTa>options button with the effective Source Range to target range Zar CrossLink'B Z!'@ Select Active Sheet to return toet CelCheck if Sheet Exists ZZ'< 8 ` 8! B Activate the metadata sheet9. B$`@B'<h 8p.&If Sheet not present then just get out <No CrossLinks Present..@A"shMNow get number of columns in CrossLink sheet.. Directly corresponds to number[of cross links so cycle through and create the form. If delete then remove that columns andshift all crosslinks to left.Z( R r@BtZH'Get Num Rows and Cols from Range Object R'Pa R!x!H'P(MaxCols to be Searchedhp PNo CrossLinks Present@A"s8h05So we Get the Number of CrossLinks Here. Display them+and Ask user which one he wants to kick outAdd the OptionButtons''#Stores width of widest OptionButtonCreate Header On FormFor CrossLink Number forms.Label.1 !(!%p.   9CrossLink Number999* 9,9.n Source Sheet forms.Label.1 !(!%p.   9 Source Sheet9d 99* 9,9.nSource Cell Range forms.Label.1 !(!%p.   9 Source Range9 99* 9,9.nX Target Sheetx,f11rEM P<<<<:<2<<< FK8 8X 99 I2 xId @ D3PP  $ $$ $ ($`` `f ``` @B `@$ 8 $`< R@ %$`Pelec@D fo 0!$@ 9@4 `f9@6 .@8 g@: g`<ourc@> fo@@ !@B  `D9*@F 9,`HSe`e La@^ Labe ` of $`b Dir x cle thiB If de 8t co $\ o le8L 4@ VH B 4 4P  N D0x2  "0 X hp x , " T bX $ .8HP,X    < 2 Hh2p  *  ( @ H P X` h*       * P X ` x    *      (  0  8 @  H* `             * ( P x    J F 0F x  2 2 2 H2  2 2 2 @2 x  0 08@HPXp  *    (( P(` (    $* 08@HP`h p  x*   $*8 hpx     2(0@HPX` h2  6 HX.`.  .00P2V 0Pp x  (@ @`   > *@P X(p4  * ( 0P p x  (   ( 8 HX B`hp "   " 0x-Passed back to the function from the UserFormsaru ZPCreates a Dynamic code based userform through which users can remove cross linksoZAs VBCom forms.Label.1 !(!%p.   9 Target Sheet9, 99* 9,9.nTarget Cell Range forms.Label.1 !(!%p.   9 Target Range9 99* 9,9.n  'Z`x f P$Make the Userform Buttons and Labels f$ f$$2.DZZ(Z@XpZ$D!h$D!  %'GGet CrossLink Number$D!$D!  %'4FGet Source Sheet$D!$D!  %'fFGet Source Sheet Source Range$D! $D!  %U'6$D! $D!  %U'8$D! $D!  %U':$D! $D!  %U'<Destination Range $D! $D!  %U'> $D! $D!  %U'@ $D! $D!  %U'B $D! $D!  %U'DSets Selection Buttonforms.OptionButton.1 !(!%p.  9 CrossLink: 99*9 9, 9J9. 2 fF9g5  F5'gnpSets Source Sheet Label forms.Label.1 !(!%p.   9 499*d 9 9,9.n 8 6$ < :$$2.0 0!j'F @ > @ >$ D B$$2.0 0!j'Ha8'Hh(Sets Source Sheet Range Label forms.Label.1 !(!%p.   9 F99* 9 9,9.nSets Target Sheet Label forms.Label.1 !(!%p.   9 f99*, 9 9,9.nSets Target Sheet Range Label forms.Label.1 !(!%p.   9 H99* 9 9,9.nP  ' f Add the Cancel buttonforms.CommandButton.1 !(!%p. Cancel99*,99 9,n  Add the Delete buttonforms.CommandButton.1 !(!%p. Delete99*,9^9 9,n  '/ Add event-hander subs for the CommandButtons !N5P'  Sub CommandButton1_Click()@CR   GETDELETE_RET_VAL=False@CR  Unload Me@CR  End Sub@CR  Sub CommandButton2_Click()@CR  Dim ctl@CR   GETDELETE_RET_VAL = False@CR   For Each ctl In Me.Controls@CR  A If ctl.Tag <> "" Then If ctl Then GETDELETE_RET_VAL = ctl.Tag@CR  Next ctl@CR  Unload Me@CR  End Sub@CRn  Adjust the form  dCaption;&&Width;&  Height;&n  Show the form ! !T%p@BV Delete the form Z !"!$@BX9 Pass the selected option back to the calling procedureZ \' s 8h 07Now Get Option has Column Number which has to be delete#Basically Shift All Columns to LeftZZ f  P  f$ f$$2.^ f $ f $$2.` b bNUMBER: f % b$^(aCopy cRange to sRange b$`! b$^(h b fUnload Last Column P$ P$$2.^ b Copy cRange to sRange b$^( bX  @$`@Bf8Z 8 ` 8! B Activate the metadata sheet B$`@Bs0h( 8 B l!p( l!H$lp B$l@BnfAttribute VB_Name = "DeleteLink" Option Explicit 'Passed back to the funcLfrom"UserForm Pubp GETDELETE_RET_VAL As VarianSCreates a Dynamic codekciuKfKXrough which s can remove cross las F(Default, Title)  Dim TeDmpV 'JBComponeLNewLabelZMSs.!Butt$ 3mand1 - 2TextLocaIInteger)X!, iJTopPosF MaxWidtBhLongWasVisibleBooleanB 'RHitVBE windowAprevZ screen flashi@ X Ap/. .MainW.= FalseC˟ Setx= ThisWorkbookProject@]}s.Add(3CE. per@ties("?")@10008'Read CAa She@y LoFriggin BBQM aB'os& wi ef f@,iSource RangeBargrsht, act$SnA"=a%.'Sct< A@!"repturn"'HCheif!E`xistsBwShs 2s;&AgAIVb= c.( EabIng a2If = ThecS;aa'""Hmetadata@8'"s( ).e D1End IfN@s ' 3not @csAcCn just !;outb@!Z(MsgB@ox "NoPs Pre ..:!0t Ťb  'Ntnumb er oflupmns WVb6. . DirRly͠r `idsRC a so cycthcAe`˥0.@& dMÂ!that ft allleft.BANdRnbKbgAexcel. CDrminjed N`umCol'Gq Row z ?BB Ob9(eIs NotTrue+<{e`EeS .A6.count ' ube@archedB@ o&o&d&O&OP 'So we ; &%s Here%splTay9m'"AskarTp{ wp'kiGE3S]>yyB$o= 4vn 'Sto@-[o`,wl@9}ChH`3O^K4Sjj.Designerntr@'2j"2.1")" WbuV.{8= 8kACaÞ L4bB8Heig\= 15pAutoSiza.(! "nBRDa BTxb t +  .ϓqCeP2GOO/&/&/&/&(&OE2M*O.OOt J'T&ҿ88rm8 8E &i 394&w& !??Lo?L&&O&Dr/OE4OOOQ_9&@*{AՀ$oPARAfillRng, yyckg;!ci1 Toqra|R+p}khe Qa 壇'@ʴng = Range(Cells(1, i), E`2h) Dim colSet, sSheds As S tring XssColVsRowh, ee`I@nteger 1dm1d1 e 1Add, t! [VBA.Mid$(fillRng(2).Valueu8, Len )) 'Get CrossLink Nu\mb\.3., - -Sour8ce Z= Z8+ +'6WFk1Ce(N4F1@JIE)))Row5E60oE;%7E'DestinationЇ?,9REs= e\10IeZ&11 )F )1Ekx, 1 E ''C elec+B`utton NewOpc`-TempForm.2igner.Controls".`("f`s.a.1") AW8ith- .Wid= 800YCa"ƅ:0 " &/Height15(LefA8/ToFp`PosaAutoSizerueIf Defaulai Then 8"> MaxC$= # End .@H Label$AA_@ms.v? >>>#s{aR|g4}_qx= 7r es*%(Not (eM-1jA` eb$ O MG S@ B> Els1""'P If*Sa?+1Fr&?+oKbK??+Jv?+J .8+ +u .eI+2 .+ .++fTarg@//bb/%b/4Pa'zOa3I3OOO OO.: zRO.O.O.a/xI.;H.4kp `5~opb3Next i 'Xthe Cancel bGCommand1oobj6I߅1KF" wT.g444G$15WrF+ZDФte_w 2____2_= " _= 1_ _ 3_"W#20 Add event-hander subs for the CommXButt ons With TempForm.CodeModule8@X = .untOfLinel2.Insert( X + 1, "Sub f1_Click()"R828 GETDELETE_RET_VAL=FPalse737Unload M)4End O'H5d2d6 Dim ctzl\7xy8 Each3 In~ntr(olsX9 If .Tag <> " Then&4 X10NextY A !o1Jo'ABp '@AdjustB@mʶBProperties("Caption")Q@^TitȽ. Width 550SHeight opPos24 F+B*Show)`VBA.Uҁs .(Name). DeleteThisWorkbook.VBject# }pons.Remove VrBf:= b P(assb s cted o# ba ck tobcalling procedurCA^GetOAsR`teger =߯|!3R)0QExit Func6*IfB,'N* haslumn Numbwhiebe d")Basiy Shift All!o LeftsRange, c rjAIn"uiS`LTo!Cv - 1Set C " (Cells(ei), c bi))=~ !+"j 1 12 {`2A2k1!a#(j).Value`"NUMBER:" &MA.Str(iG Ej 'Copy* 4# F*Da j"BiB'La2G1K7J+e#+@+Debug`int (K qAsheet@s(actS).A 4vate 5 Check`H(By shtH- ?1wShtqj j%.=6h6 q' Hmetadata 7( 5D"" Y MVAfter:J=(cop){s2EM(<2<< <FKH th@)r`X$ tGP)r9=@$`v HD`x`z9,`|8 hh0 " " "(P 8X8 88 08 hp r r@Btl`h ZD3PP~( *   %!'v *   %!l'x *   %!'z *   %!l'|  v x$ z |$$2.r~l\Attribute VB_Name = "excelRange" Sub CallDetermi@neUsedl(ByRef theRng As *) .pAd End  d'`Dim FirstRowwInteger,QCol _La. - On Error GoTo Handle 8= Cells.Find(What:= "*", 4 SearchDirection:=xlNext `Orderows).f2IO21*umn3 Previous4YWNQ5SetŤ=(k(plj)/D, D,)) :Ur~} LockDocMetaData  __SRP_12__SRP_13setAttributeForm"%&/    !"#%')*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQSUWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}~ l l  lA l7Ur ````pUr~}  ,  8  ( H  p x "     N   @ " P( x    4  8  @4 `   4    4  X  `4   4    4@ x  4   4 8  @4`      008PX ` p  x Cancel!! Are You Sure? &  $" F @Atgl(@ZXPages::'1.ppReset Forms!! Are you Sure? &  $"  @B::h(l Functions usedibraClear All Pages on the Form (f (ts I (f (f (fata (f (f (f (f (f (f(l Create MetaDataZ MetaData'B B @B @Atl8ZZZZZZ Z8 \!'> Z!'@:Checks if Meta Data Sheet Present if not adds else selects \!l'F \!' B @ %'< <The Sheet is not visible exit9Attribute Metadata Sheets have been Locked. Please Unlock@A" @$`@BuPhH F$ F$$2.DSet 1 Row to attrName AttrName: >$D(*Set Row 2 onwards according to form Page 1FQ: !f$Dx1䪑Gk$$;EMPPSSSS<<:<2<M0{E478B22B-5B00-11DC-A230-0016CB90E91E}{E426588F-5B00-11DC-A230-0016CB90E91E}FK@Sc Fo 9G0$ 18 8`B$ Px99 iB 6$`< `>`@ D$`F`  iBi  8$`<x`B`@  [[iBxkEM(<: 6< <FK*\Rffff*1a46dd4a6fh ``B 8p $`< `rr`Br 8$ `ists I`BDocu 8xata $ `eets L`B( 8$`<!a'X!$0T" .8@PX`h x"       *(8X4  " "8@P ` x (   0  " &8@` hx   *   . 0 "8@HX`hp "       *08`6(Locks Document Attribute MetaData Sheets&Z@MetaData'BZXZx'< 8 ` Scan and Parse 8!  % Bntosh Found a metadata sheetnera 8!$`(ra < '<h 8 <e VB$No MetaData sheet exists Inform User. .Document Attribute MetaData Sheets Donot Exist@A"ah)Document Attribute MetaData Sheets Locked@A"h(l Lock Document MetaData Sheet!ZDocument_MetaData'B89Z 8 ` 8! B Unlock Shewt Targe B$`(Locked Document MetaData Sheet@A"uHh@ 869%Document MetaData Sheet Doesnot Exist@A"lUnlocks Document Metadata SheetbeZHDocument_MetaData'B  Z` 8 `* 8! B Unlock Shewt` B$`( Unlocked Document MetaData Sheet@A"1 uh 8  $Document MetaData Sheet Doenot Exist@A"lZMetaData'BZZ'< 8 `Scan and Parse 8!  % B Found a metadata sheet 8!$`( < '<h 8 <$No MetaData sheet exists Inform User.Document Attribute MetaData Sheets Donot Exist@A"a`+Document Attribute MetaData Sheets Unlocked@A"h lAttribute VB_Name = "LockDocMetaData" Sub PT() J '.s \u`ment P @SheetsZD@im shtAs Sng~8"2wShYs WorksMAflag IInteger= 0 For Each CInCaScan and Pars&e IfA.Mid$(.[, 1, 8)aYThen'FDou&a md_yes-).VisiblxFalD*k+ 1&E5IfNextta 0 T'No U exists Inform UsSMsg`Box "ynot ECpEI2s(Aed9# =@ &E3I:FbE<_$ eF1Unl@wt-?^CUEe 8t ,?Onrdin D`FQ:$`FDT:`L(`H$`J!f 8OI:$`z*Se`rdinH@$$pHSS: $Px8@TO:HxH x "HP "X`h@  " " ( 8 H X h x      "   (8 "@HPX`hpx   @      $(DP ( " 0( X x    0 ( H h   2  < `   B  0 @ "Px    " " (@ X h Fx *     0 P  ` B h  p x           &  (DT: !f$D(UT: !f$D(EX: !f$D(OI: !f$D(*Set Row 7 Onwards according to Form Page 2EQ: !f$D(DF: !f$D(SS: !f $D(SB: !f $D(TO: !f $D(+Set Row 12 Onwards according to Form Page 3ME: !f $D(6Set Column Number (Used to Name Column in SQL DatabaseCL: F $D(RW: $D(SE:YES$D(Reactivate Original Sheet @$`@BDone@A"lPZZ 8 ` 8! B 8!Activate the metadata sheet B$`@B'sha`'sPhHh@ 8 B l!p( l!H$lp B$l@Bn'fZHString @BNumber @B @B (?Also Go an Check if the MetaData Sheet Exists. If it does Check$Whether Meta Data has been PreloadedMetaData'BZ` Z!'@ B @ @BActive Current WorkSheet @$`@BlxZZZ0ZHZhZZZZSelects Attribute \!'>Selects Active sheet and Stores&Selects which Column has been Selected \!l'F!Selects MetaData sheet if Present'L 8 ` 8! B Activate the metadata sheet B$`@B'Lh 8GIf MetaData Sheet is Present We Load else Hardluck and display Old Form LRead the Columns From Sheet F$ F$$2.D 'H J H Load Form TextBoxes J$D!FQ:} J$D! J$D!  % (fh J$D!UT:} J$D! J$D!  % (fh` J$D!EX:} J$D! J$D!  % (fh J$D!OI:} J$D! J$D!  % (fh J$D!EQ:} J$D! J$D!  % (fh@ J$D!DF:} J$D! J$D!  % (fh J$D!SS:} J$D! J$D!  % (fh J$D!SB:} J$D! J$D!  % (fh J$D!TO:} J$D! J$D!  % (fh J$D!ME:} J$D! J$D!  % (fh` Set List BoxZZ J$D!DT:} J$D! J$D!  %'z zString' zNumberb'h  (h Japshh`fXPAttribute VB_Name = "setForm" Bas0{E478B22B-5B00-11DC-A230-0016CB90E91E}J2658 8FJ cCreatablhFalse PredeHclaIdTru !Expose>TemplateDerivCustomizB P Sub Cancel_Clic k() If MsgBox("!! Are Youre?0", _vbQuestion + vbYesNo)h Then Unload Me Endg:A BRe؊ADim pg As Page6Debug.]nt ' s::' ,B |sD-yt-B8͒.clearEverythiLng 6If7'FuncEs uaq Pub@X> ]'CA AllBye ( Cf .]?(ByRef  `ws`Worksheet flacBoo GnAactSa h! illRn Ran%n' colNoIn teger row= Sele"`.Val`A$= @. 'CheckXs i2 !: 3se@not adds e@ s s# Colum#$Row*= .BAddE? &B)@ " '@is visiexi;A%# "!*AOd[s have beLocked8. PAckGYfGs(0).A`3vEbęASet f DD= "D(Cel@ls(1, .)t, 5%"'1 Row t8o a@f> (1)EaH:"`, a 2warP accordXfRT 1%r2(FQUz3yxDTr1VTz4]xUsWz5xE.X5Xz6xOI}rOTYrB7 Onc27I]z8xDFBD^z9xSSr`z10B4a TO7eb( 612oO C3E1y) ME2EgB Number (.UQ`+!+ in SQLIbKy#CLB22[#R^WRI[#S "YES='ReTOriginal3B?t?F("Done")IU PBy0]Ok)dwShtAcQxd  Each In UcpB/UsA6yVU= {Xq1'P mgBVvq7 E`T: H2W5 Eé Nrms.@o'GMohAfter:=(count!qf*@7rQ<_Initialize?%B AZ Item (",=DropDfillRntRange0 colNojIn`teger0wP@resentcouindexq1wShI p'Select0ibutj= ion.Valuctive Y and Sto\-/which Column has been.ed8>MetaData?if G= 0 F`or EaFIns|If UA.v=@tBThe~'AA@ate the zm@$dF$ ^s(sh). ,1EWIfNext'B'+EBSA isB We Load else Har dluckjdisplay Old Dm! >'Re`9K`@acin`< R F$ D@$`B`P`f`$O"8@HPX`h p   :(@`,  <0 6H .2  (0 *H(xF  jhpx   (,.@*p,  4   (HX~pZ@Z`xF ZZZZZ(ZHZ`Column_Headers'B Z!'@Get Source Cell Range @Select Column Header Rowsn %.  %!' % %!l' !H %!' !H %!l'! !:!'ah"Please Select a Valid Source Range@A"0h(Fire in the Hole6Got Cell Ranges Load Check if Cross Link Sheet Present B %'<0Get Total Rows and Columns That Have been Filled R r@Bt'Get Num Rows and Cols from Range Object  R'Pa R!x!H 'P,MaxCols to be SearchedhZxZ f P#Check and see if we are overwriting f$ f$$2.D$D!$D!  %'FGet Source Sheet  @ *Column Header for this sheet has been Set!  Press Yes to Overwrite $" HQ f'P HQ @$`@Buhk`hX fAdd Tags P$ P$$2.DSheet: $D( StartRow:  %$D( StartColumn:  %$D(EndRow:  %$D( EndColumn:  %$D( @$`@B$ Added Column Header for Sheet Name @A"u~ User Cancel P@A"lAttribute VB_Name = "setColumnHeaders" Sub T() On Error GoTo H`andle :Dim sourceRange A s 8tartRowNo, end s A OSheetOSngactflag1Integer2usedRn Nfill shtg ?NumVs 35w_\= ivec.4S!'GzS PCellS: S = Application.InputBox(prompt:="SelPect C$ C$ Rows", Type:=8)If ( Is Nothing)@False Txhen 4Bq@NoH.A.s(1).K @!W ( count CÙ= .Worksm EF-Msg@_ "PleaK_a Valid DvB" Bւx@End If{'Fire in the Hole1B'Gots Load Check if Crosink 0Presentbd`etfForDm.Add"(DY) RTotaR G Js@Batve been F`jedB excelb.CallDetermineUq…$s? `lT s fYCa ObjYVe{UTrulUv= 1b6 .As.BK + @1 'Maxs to Search$6ab :i1i1ˊ/ iy\1 D ':.se Af we a`BoverwritsAe =%(dq, i),Bs(5)=@A.Mid$(d!xVue, 7, Len))CCZ 3H? œeg("5/ dfs an has#M!8" _ a& vbCr "_Ps Yeb7O&evbNoG!EC AEiDNo2Ƈs(e#).Activatc{EExit Sub N'hPNext #'`= TagsO"eG" "%S!p+"b:"xSq2).$lRowVBA.v(dk3!pE4-e 5K(esb_hZba eZ72Y.  X ! :Bp#upVr CanPX  "%Get Selected AtributeZ@Z`ZxZGet Number of cells \!!H'  \!&Please Select An Initialized Attribute@A"aH Valid Value Present Show Form @BV@hX \!a%Please select a single Attribute Cell@A"hu~Error@A"lAAttribute VB_Name = "setMetaData" 'This Hs the m`d` for@whole document which will be converted to Dublin Core OAI 'Stand@ard. W/Ston DL@ sheetCs#;gdo so onba)hide it from 'users Sub!W() On ErrgGoTHo Hle 'G=SelecdA Dim ,dRng As Range NumRows Integer Col el B)ber of .c' C= !Rion..c0ountIf 1 ThenAValu "  MsgBox "Please An Initializ{ƕ"ElsF'@id PresShow Form 7F. Gnd IfDebug.Pri4+ "L3sy ingF AT3E{xCȐ:oB A Ur~}    lIUr  `px__SRP_DTesheetSelectForm showDocMetaDataForm('*setProfileDescription,V<  GETOPTION_RET_VAL = False@CR   For Each ctl In Me.Controls@CR  A If ctl.Tag <> "" Then If ctl Then GETOPTION_RET_VAL = ctl.Tag@CR  Next ctl@CR  Unload Me@CR  End Sub@CRnx Adjust the form  dCaption;& ! ! Width;&Width7& Width;&j (j (h  Height;&n Show the form ! !T%p@BV Delete the form Z !"!$@BX9 Pass the selected option back to the calling procedure 'fqAttribute VB_Name = "sheetSelectForm" Option Explicit 'Passed back to the funcLfrom"UseBr Pubp GETOPTION_RET_VAL As VarHianS F@Getq(OpArray, Default, Ti@tle) Dim Tempb 'KBCom0poneO!NewLButt&MS2s. ("mand1R 2Tex`tLocaII@nteger)X#! , iTo0pPos Ma@xWidth Long WasV@isible B@oolean "'JHidE @windowAtprevQ screen flashi@ Ap/.VBE.Ma(inW.= `FalseCxreaAƄ SetGp= ThisWorkbookProj@]Cus.Add,(3~. perties("?")800G8 |sDS= 4P= 0 'S`toresEUofest i= LBound) To U>'We can@a  12 Ss - 1 CrossLink@(Total EffDive /2BBbNnche@ !VC#T6= # ED-@+ #3IfNepxt iB"{Cancel `7G*1?HmsJmGFHEG B""gAg>*`߃$C$2&6+J!OK 2 4ooH8 1"OK/= 1y/ 4//#2'3?k-hPer subs @AB` S`eCodeModulW3XA untOf YeScPROJECTwmPROJECTT$SummaryInformation(W;DocumentSummaryInformation8?x;OEM(<<< <MaFK X ff$I xI2 HwkId cin@ ers/ nf/h$ $ ($```f```  l 4@ BHPpx 4 4 (Hh 2 N HPf 0 08@PX`hx      28@PX`px 2  6  Xh.p.  .@0`2V  @` (     (8@` h  @   0x-Passed back to the function from the UserForm ZZAs VBComponentZZZZ0ZH`x ZZ- Hide VBE window to prevent screen flashing$. Application.VBE.MainWindow.Visible = Falsex Create the UserFormcell !"!$%p. Width ,& Add the OptionButtonsed''#Stores width of widest OptionButtonm f  HWe can Set a Max of 12 Sheets - 1 CrossLink - (Total Effective Sheets/2)TaANow check and Add only Sheets which are not MetaData or CrossLink f$MetaData} f$ CrossLink} f$forms.OptionButton.1 !(!%p.  9 f$9QL9*9 9, f$9JS9. 2 fF9gH5  F5'gnH  ':hh0 f !P Add the Cancel button'forms.CommandButton.1 !(!%p.=( Cancel9q<9*,9  9.c9,n Add the OK button̢q]` forms.CommandButton.1 !(!%p.$ 6 OK9oeFs9*,9  9ް9,n/ Add event-hander subs for the CommandButtons !N5P'  Sub CommandButton1_Click()@CR   GETOPTION_RET_VAL=False@CR  Unload Me@CR  End Sub@CR  Sub CommandButton2_Click()@CR  Dim ctl@CR rInptB X `@RSub j1_C k()x2 _=tYini3rUnload]~4 WG% 5 2 .6 ctl7rԃ8qwEa`m` In_0s`9 & Pp.TT<>| "SPs = D10"RJ1 N~1!+?ju p-b+Y:2zo˕ps-.J+ cb`1O< 160r  j$T10sR12 HXg 3\B@H+ 2sK&iShѴhVxBA.5VG).!SDTጲC//RemoV:=EB Ps`ctoÌ9callP procedurP0Q1  4    4 @  x  4    4  8  @4 `   4   4  X  ` p x   "   F * 8 @P `  Cancel!! Are You Sure? &  $" F @Atgl(@ZReset Forms!! Are you Sure? &  $"  @B0˒h@l8Functions usedClear All Pages on the FormMainWi (f = F (f (fUser (f (fp (f (f& (f the (fnsed (f' (f widl8Z Document_MetaData'B B @B @Atl8ZZZZZZ Z8 \!'> Z!'@:Checks if Meta Data Sheet Present if not adds else selects'F B %'< <1This Sheet has been locked. Inform user to unlock-Metadata Sheet has been Locked. Please Unlock@A" @$`@Buh F$ F$$2.DSet 1 Row to Excel NameDocName: !$D(*Set Row 2 onwards according to form Page 1TTT: !f$D(CRT: !f$D(DTT: !f$D(SBT: !f$D(DNT: !f$D(*Set Row 7 Onwards according to Form Page 2BCT: !f$D(CTT: !f$D(DAT: !f $D(DCT: !f $D(PBT: !f $D(VET: !f $D(Reactivate Original Sheet @$`@Bx1u;!K EMPPSSSS<<:<2<M0{E46A2B05-5B00-11DC-A230-0016CB90E91E}{E42B6D0A-5B00-11DC-A230-0016CB90E91E}FK@ 96$ DF58he For`B Px00fata iBf 6 $`< `>`@a D$`F`  iBi  8$`< xH NNiBhi  6$`< `> D$`F`L`H`J 8p$`B`@$@ $Px8@xx H "HP "X`@h  " "    0 @ P ` p     "   " (08@HPX ` p @    88(`px  ( $ 0   @ `   0   0 P p   B  0 "@hx    " B  (08@HP X p & ( "  08 @ NP   "(      @4 `   4   4  X  `4  Done@A"lPZZ 8 ` 8! B 8!Activate the metadata sheet B$`@B'sxap's`hXhP 8 B l!p( l!H$lp B$l@Bn'fZZZZZZZ(Z@ZXSelects Attribute \!'>Selects Active sheet and Stores!Selects MetaData sheet if Present'L 8 ` 8! B Activate the metadata sheet B$`@B'Lh 8GIf MetaData Sheet is Present We Load else Hardluck and display Old Form LRead the Columns From Sheet$ $$2.D 'H J H Load Form TextBoxes J$D!TTT:} J$D! J$D!  % (fh` J$D!CRT:} J$D! J$D!  % (fh J$D!DTT:} J$D! J$D!  % (fh J$D!SBT:} J$D! J$D!  % (fh@ J$D!DNT:} J$D! J$D!  % (fh J$D!BCT:} J$D! J$D!  % (fh J$D!CTT:} J$D! J$D!  % (fh J$D!DAT:} J$D! J$D!  % (fh J$D!DCT:} J$D! J$D!  % (fh` J$D!PBT:} J$D! J$D!  % (fh J$D!VET:} J$D! J$D!  % (fh JashxfpxZ?Also Go an Check if the MetaData Sheet Exists. If it does Check#Whether Meta Datahas been PreloadedDocument_MetaData'BZ Z!'@ B @BActive Current WorkSheet @$`@Blh`Attribute VB_Name = "showDocMetaDataFormD" Bas0{E46A2B05-5B00-11DC-A230-0016CB9@0E91E}J2`B6D0AJ cC$re|blhFalse PredeclaIdTru !Expo se>TemplateDerivCustomizaB P Sub Cancel_Cli@ck() If MsgBox("!! Ar e Youre`?", _vbQuestion + vbYe0sNo)h Then Unload Me End:B BReset BDim pg As PagVeK s'y4'1.clearEverything 0IfG2 'Func?s uk PubRA9& W'CA A$ll6s @NtheB3F#TT.Te$xtQ""CRDQ SBQ NBCCDAP DPQVEƁ SaveʀshtSbA%~@~ument_&R;see ($ #`A .Wi<(ByRef O awsaZWorksheet# fla]BozoCnAaxctSa " illRn RangcolNoInteger row= Sele\.Val`A$= @. 'Che`cks i@ ma s 6Anot adds e@ s s#= 1&3%= -Ŏ.Add ;?b"b 'Thishas belocked. Inf|@r to uckF "JduLP<Jc&kTfBs(+).A`.v` ExitB!!dAa Set f$@= @(Cells(1, )), .2%CT'1 HRowEx : (1)#AA`oA:" & "ebookA "2war=accordA +Ὃ=e 2h TTT $ru3xCRsDSz4xDtTzr5xSBUz6NsDVrBR7 On_a, 2E 7BCT[z8xCD \z9xDA ]z|10^ Pd4`yVEtacB'ReDOriginal4o%So2tst8("Done")zez BByM/[)1SwSht!S?bD@^T Each In W :`H2@45c6yVisi[Kq1'B mVHfq7 FRF: XI5 Eeu 0*Q|OaN1`s.a,Move A@fter:=(count!OK6 LFroma'P;'ς )u'ςtrX*ro Cv,#uzdindexm1' BRA@ub_onXWMre

kCVCV/@UxDA}@A++j++D@D@+\P=>P??@(@VE<@VE?@?@=@eZfNBElsefExit FunctioCw|%  Private Sub User_Initialize(SDim shtName Asb `ing2B'Also Go an Check if the MetaData Sheet Psts.0z P doesCWhe0rB Qhas been Prdeled=`qocument_" act'C f= iveB. owD,oc.FromAd s(t 'Ave Curr Wor.krRs!s().b@ JiEM  @Ӡ~t  ~g`B `@(`<0@"\hp x V" 2 P h (Create a Profile Description Link Sheet? $ & Sort Sheets$" (@A hlO Creates a sheet that will inform which sheet contains the profile description.@ZZProfile_Description'B Z!'@ Select Active Sheet to return to B %'<Reactivate Original Sheet @$`@BDone@A"lPHDZAttribute VB_Name = "setProfileDescription" Sub \LinkShe@et() If MsgBox@("CreaaUj  n p?0", _;?vbOKCancel + vbQues~, "Sorbt1s")) pThen;End If  ! ' s a s` that will inform whichcontainse p郏 d.A(Dim%tAs Sng, atct Yflag Integer_sh"ք_ Ձ+=0(ive2.>'Select ActU to r`eturn@B f != @6FFG.CheckA4dd($'ReivOri`ginalCBWHorkB\s(E))." B ("@Done")m0 H 'ChemxSeerExcelAddinForMAC_VBA_PROJECT#dirw__SRP_0 5__SRP_1oCR i01GpFz?afoFI9pdataType?% attrRowNoD attrColNoZ> metaIndex(colSet]Activate|CellsValueKcolRngYcolIndex IsNumeric*$Interior; ColorIndexBorders"CColorF2xlColorIndexNoneBTrim@cbarx CommandBarcbctl CommandBarControlPcbtsub$ Application* CommandBars DeletexPosition msoBarRightMenuBar TemporaryۖVisibleӶControlsKmsoControlButtonnStylepmsoButtonCaptionCaptionxOnActionmsoControlPopup)l CrossLinkCrossLinkSheet LinkSheete'DeleteCrossLink UserChoice DeleteLink?Ops sourceRange sStartRowNo sEndRowNo  sStartColNo sEndColNoJ sourceSheetlP targetSheetStartInputBox promptmRowωsheetSelectForm GetOptionsetAttributeForm&2 CheckAddSheetO dStartRowNo dEndRowNo dStartColNoT dEndColNoQStr՗GetSheetCrossLinkCells LinkCells targetRange.OSecStartdelColumnHeaderڈdelColumnHeaders!TempForm(RNewLabelLabelaNewOptionButton OptionButtonNewCommandButton1 Z CommandButtonkNewCommandButton2 [ TextLocationhNXoTopPosMaxWidth WasVisibleP VBProjecthO VBComponents' Properties+Designer"Height|Top5AutoSize!checkRngDefaultsSheetssColK[ssRowesColPesRowsdCol\sdRow^edColedRow sAddtAddTag&comI CodeModule CountOfLines\! InsertLines UserFormsKShowRemove VBComponentGETDELETE_RET_VALKsRangecRangezjaTitle~dsheetZValue2AddressŧSheets Movey>AfterXtheRngv[DetermineUsedRangeFirstRow3FirstColLastRowwLastCol46 HandleError;FindnWhatCSearchDirectionrxlNext SearchOrderxlByRows xlByColumns xlPrevious LockDocMetaData"ad  '*\H{000204EF-0000-0000-C000-000000000046}#3.0#9#Macintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications\0#Visual Basic For Applications*\H{00020813-0000-0000-C000-000000000046}#1.4#0#Macintosh HD:Applications:Microsoft Office 2004:Office:Type Libraries:Excel 11 Type Library#Microsoft Excel 11.0 Object Libraryx*\H{00020430-0000-0000-C000-000000000046}#2.0#0#Macintosh HD:Users:sarueda:Personal:JuanPablo:stdole2.tlb#OLE Automation*\H{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#Macintosh HD:Users:sarueda:Personal:JuanPablo:MSO.DLL#Microsoft Office 11.0 Object Library*\H{92396810-A79F-11D0-8ADF-00A0C91110EB}#2.0#0#Macintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications\3#Microsoft Forms 2.0 Object Library*\H{92C78480-A79F-11D0-8ADF-00A0C91110EB}#2.0#0#Macintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications\2#Microsoft Forms 2.0 Object Library E..`M  ChemxSeer Excel Addin For MACFK    ThisWorkbook 1246dd4a6e*D}xSheet1 246dd4a6d*DTSheet2 346dd4a6d*DY0Sheet3 446dd4a6d*DH CheckColumn 1846dd4a6f*D .`1 CreateToolbar 1346dd4a6e*D{x CrossLink 1946dd4a6f*D\&delColumnHeader 1646dd4a6f*DI. DeleteLink 946dd4a6d*D,2 excelRange a46dd4a6d*DrsLockDocMetaData 1a46dd4a6f*DssetAttributeForm c46dd4a6d*DG$setColumnHeaders 1546dd4a6f*D  setDMetaData 1446dd4a6f*D}8 setMetaData 1746dd4a6f*DPsheetSelectForm 1046dd4a6d*DhW showDocMetaDataForm 1146dd4a6d*Du!SsetProfileDescription 1b46dd4bcc*D JqHP` hx8N[ܢ0ː[ܢ0ː#[ܢ0ː T[ܢ0ː ,[ܢ0ː3[ܢ0ː [ܢ0ː[ܢ0ː)[ܢ0ː#[ܢ0ː([ܢ0ːn0[ܢ0ː[ܢ0ː[ܢ0ː;;[ܢ0ː0 [ܢ0ː [ܢ0ː6l[ܢ0ːHDExcel+VBAWin16~Win32MacChemxSeerExcelAddinForMAC;stdole`OfficeuMSFormsC ThisWorkbook| _Evaluate Workbook_Open CreateToolbar Sheet1Sheet2Sheet3 CheckColumnLJMsgBoxR vbOKCancel?x vbQuestionvbOK%checkColumnWithMetaDataa CheckSheetqcheckSheetWithMetaDataLastCellInColumnjRange xlUpws_wSht WorksheetflagAttrNamezactSheetsshtNamen}fillRngcolNoF countv0index sheetPresent3*NumRowsNumCols-JusedRngmaxIntU currentColNo  mulSelect activeSheetN% SelectionZAreasK WorksheetsstrCols'+ CollectionWi` checkFlagItemzColumniDone Addr excelRangeCallDetermineUsedRangeߣRowsUColumnsLockAttrMetaDatatUnLockDocMetaDataUnLockAttrMetaData Cancel_ClickvbYesNovbYes?a Reset_Clickpg^Page}NclearEverythingFQTDTTb ListIndexQUTTKEXTOOITEQTLDFT\SSTtSBTTOT9METX setAttr_ClickcreateMetaDataurowNoUserForm_Initializec5AddItem DropDownCheckAndLoadFromSheetN dataindex%setColumnHeaders[ startRowNoKendRowNo/ startColNo4endColNo iSheet1vbCr$vbNo% setDMetaData setMetaDataEshowDocMetaDataFormGNumCells<GETOPTION_RET_VALUOpArrayTT_MCR\DT\SB_DN\BC\CT\DA\DC\PB^VE_ Save_Click"zActiveWorkbookLoadFromMetadataSheetWorkbookkModule1bsetProfileDescriptionJProfileDescriptionLinkSheetR &     s !  ! $%0D$`@@` T < > @ EB D@:DhemxSer *E c l A"din FoMAC==   KPF %<9stdole>stcolQs x*\H{00020430-C 0046}#2.0#0#Macintosh HD:Users:sarueda:Ponal:JuanPablo:?2.tlb#OLE Automation=ROfficRHOfi 4R2DF8D04C-5BFA-101B -BDE5RAAP42RMSO.DLL#Microsoft C$ 11.0 Object Lib0rary#@MSyms>vnmsP/;1*|\GXQBT X00}#0X# ^0ǀ G92C78480-A79F-11D0-8ADFA0C91110EBGAppliRcds:@2V:C:Visual Basic for \2HOBE N.E .`PM 0DBThisWorkbookN2U@T@i\WBkbokQHB1-B," }*""+bfSheet1h2b*Sbxeh1  T 2 2 2 bYԴ j3 3 3  $ckColumn X2!b$c/CQ0lu`n0# c%.! e1 reateToolbarbN2eDa 3eT?lM@a@4 {+ "ossLinO2$oNsLM&/ \+ ` delc*HeadVe2`Ke)+H`ar,./I+ Delete2 tI2 , eRangeW  eR`:n,g8°ys )LockDocMetaDataL#+DrMPtD0qs=,setAtt@ributeQ_rm2%UEA,t+iP,u'R-e_$_G;(4T&sZ&dr 1.Ds]sD'A y]}[JPG K3sdS5ctOpse6&cp_lW9 ow/Sa2Kph/w_0Q0 M S0u(etProfileDeschrip!2*R1P1o2UqDp"sТrpXp0i gqBJ1Ur~} a     rMetaData UnLock !LockDocMetaData.UnLockDocMetaData "LockDocMetaData.UnLockAttrMetaDatadelColumnHeaders CheckSheetLastCellInColumncheckColumnWithMetaDatacheckSheetWithMetaDataCrossLinkSheetDeleteCrossLink LinkSheetGetSheetCrossLinkCells LinkCellsLockAttrMetaDatasetProfileDescriptionx     .4O !"+$%&'()*,-/0D?6789:;<1>A@EBC\GFHIJKLMSY UTVWXZ[R  ;<% !"#$&'()*+,-./0123456789:TN>?@IBCDEFGH=JKLMOPQRSnVWXaZ[\]^_`Ubcdefghijklmoqrsuvwxyz{|}~psetAttributeForm"UB.fo-@i011pFz?aK*d       Ur~~~~~~~~~~~~~~~~~P $[ܢ0ː  ' A   ! 9 Q   )8i"9"Y""iA  )   )P"#!#I#i##  )"    )h#99a   )   )  )  1$ )A YChemxSeerExcelAddinForMAC ThisWorkbookSheet1Sheet2Sheet3 CheckColumn CreateToolbar CrossLinkdelColumnHeader DeleteLink excelRangeLockDocMetaDatasetAttributeFormsetColumnHeaders setDMetaData setMetaDatasheetSelectFormshowDocMetaDataFormF5Macintosh HD:Users:sarueda:Personal:JuanPablo:MSO.DLLVMacintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications\0VBA a  PF[Macintosh HD:Applications:Microsoft Office 2004:Office:Type Libraries:Excel 11 Type LibraryExcel )Q`0F9Macintosh HD:Users:sarueda:Personal:JuanPablo:stdole2.tlbstdole )p-L[DROffice Workbook_Open 9hЊVMacintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications\3MSForms a  A E..`M DŽЊVMacintosh HD:Applications:Microsoft Office 2004:Office:Visual Basic for Applications\2   AF7U[ܢ0ːF7M[ܢ0ːDFWorkbook  @  F IF%x F I  F Chemistry Cyber-Infrastructure#t1 F< %x 1 F setDMetaData.setMetaDataBI FStyle%x! Document MetaData Column HeadersControlsAddType Set !setColumnHeaders.setColumnHeaders Delete  delColumnHeader.delColumnHeaders  Attribute setMetaData.setMetaData Check Column checkColumn.CheckColumn SheetModule1 checkColumn.CheckSheet  CrossLink To Cells CrossLink.CrossLinkCells To Sheet CrossLink.CrossLinkSheet CrossLink.DeleteCrossLink Lock LockDocMetaData.LockDocMetaData Attribute MetaDataUnLockDocMetaDataUnLockAttrMetaData  LockDocMetaData.LockAttThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3CheckColumnCheckColumnCreateToolbarCreateToolbarCrossLinkCrossLinkdelColumnHeaderdelColumnHeaderDeleteLinkDeleteLinkexcelRangeexcelRangeLockDocMetaDataLockDocMetaDatasetAttributeFormsetAttributeFormsetColumnHeaderssetColumnHeaderssetDMetaDatasetDMetaDatasetMetaDatasetMetaDatasheetSelectFormsheetSelectFormshowDocMetaDataFormshowDocMetaDataFormsetProfileDescriptionsetProfileDescriptionID="{73187E10-9C6C-4A19-A0D9-D33D4BAED9FE}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=CheckColumn Module=CreateToolbar Module=CrossLink Module=delColumnHeader Module=Defo03i036>i*WJOi0424;i*WJOi0658i*WJOCompObj[x<fleteLink Module=excelRange Module=LockDocMetaData Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=setAttributeForm Module=setColumnHeaders Module=setDMetaData Module=setMetaData Module=sheetSelectForm BaseClass=showDocMetaDataForm Module=setProfileDescription HelpFile="Macintosh HD:Users:sarueda:Personal:JuanPablo" Name="ChemxSeerExcelAddinForMAC" HelpContextID="0" Description="ChemxSeer Excel Addin For MAC" CMG="E0E2F0F6F4F6F4F6F4F6F4" DPB="C0C2D0D3D1D3D1D3" GC="A0A2B0B3B1B3B14C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=322, 16, 1087, 620, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C CheckColumn=0, 0, 0, 0, C CreateToolbar=419, 101, 1184, 705, CrossLink=0, 0, 0, 0, C delColumnHeader=0, 0, 0, 0, C DeleteLink=0, 0, 0, 0, C excelRange=0, 0, 0, 0, C LockDocMetaData=0, 0, 0, 0, C setAttributeForm=0, 0, 0, 0, C, 44, 58, 809, 662, C setColumnHeaders=0, 0, 0, 0, C setDMetaData=254, 1, 1146, 481, C setMetaData=0, 0, 0, 0, C sheetSelectForm=0, 0, 0, 0, C showDocMetaDataForm=0, 0, 0, 0, C, 66, 87, 831, 691, C setProfileDescription=410, 52, 1302, 532,  Oh+'0@H\ ' GeovistaOffice 2004 Test Drive UserMicrosoft Excel@-Cv@ʹLv ՜.+,0 P  ChemxSeer Excel Addin For MAC ) g(H  &@2} E,R KQ8Arial #9MPG{{ pFz?aMicrosoft Forms 2.0 FormOBMEForms.MultiPage.1,1H   >kBasic Informo79lCompObjVfo:< CompObjVfo=?CompObjVation:Advanced InformationOther InformationionTab3Tab4Tab51Tahoma(H  &5}>k ¯NCh0; #PG1j+ !PG25, !PG35, i*WJOMicrosoft Forms 2.0 FormOBME Forms.Form.1 (Other Comments {1TahomaH,1Tahoma$H &}m> T($2<Label6O &0MET]{ i*WJOMicrosoft Forms 2.0 FormOBME Forms.Form.1 (Different From {1Tahoma( Subset ofdP {1Tahoma( Super Set To {1Tahoma ( Equivalent To {1Tahoma(Type Ofe {1TahomaH,11TahomaH,1O1TahomaH,1O1TahomaH,1N1TahomaH,1O1Tahoma$H %}m>  (2<Label1qE(28Label2q(28Label3qh (2<Label4qO(24Label5q 0EQT+O  0SST+ !0SBT+ "0TOT+ %0 DFT+q i*WJOMicrosoft Forms 2.0 FormOBME Forms.Form.1$(Fully Qualified Name {1Tahoma( Data Typed0 {1Tahoma(Unitsit {1Tahoma(Examples {1Tahoma$(Other Information5{ {1TahomaH,11TahomaH,1O1TahomaH,1O1TahomaH,1N1TahomaAH,1N1Tahoma$H }> $2@FQ5{q#$28DT5{qE$ 24UT5{qh $ 24EX5{q$ 2@OI5{q  0FQT{O 0UTT{ 0EXT{ 0OIT{ 4 DTT{q  (Save Attribute; OqTahoma(Resetse: OqTahoma(Cancelc OqTahoma$<setAttr 5%$4Reset5%$4Cancel+*5% =P]i03KPi*WJOi04HJMi*WJOCompObj[x0R F*5WorkbookXf_VBA_PROJECT_CUR"V,VBA(H  #@4}:_,R KQ8Arial{( #9MultiPage1 pFz?aMicrosoft Forms 2.0 FormOBMEForms.MultiPage.1,1<e7#Document Meta InformationBibliographic ReferencesTab3Tab41Tahomaf$oLNlCompObjVfoOQCompObjVCompObjESEVBFrame;(H  #-}e7# ¯NCh0h #PG1j+ !PG25, i*WJOMicrosoft Forms 2.0 FormOBME Forms.Form.1(Citation; {1Tahoma(Authorsh; {1Tahoma ( Accepted Date; {1Tahoma (Copyright Date; {1Tahoma( Publisher9; {1Tahoma(Venuenu; {1TahomaH,!1TahomaH,!1TahomaH,1TahomaH,O1TahomaH,!O1TahomaH,!1Tahoma$H }6,! ( 24Label7{( 24Label8 ( 2<Label9(2<Label101(28Label11S(24Label12u 0BC 0CT 0DA; 0 DC] 0 PB 0 VE i*WJOMicrosoft Forms 2.0 FormOBME Forms.Form.1(Titletl{1Tahoma(Creatora{1Tahoma(Date{1Tahoma(Subjectj{1Tahoma( Description{1TahomaH,!O1Tahoma     !"#%&'()*+,-./0123456789:<=>@ABCEH,!O1TahomaH,N1TahomaH,!1TahomaH,!41Tahoma$H #}6 (24Label1{O(24Label2{ (20Label3{( 24Label5{( 28Label6{u 0TT{ 0CRE 0DT 0SB 0 DN ( Save MetaDataOqTahoma(ResetseOqTahoma(CancelcOqTahoma <Save&$!4Reset'&$"4Cancel(& Xd lt| 'psu Sheet1Sheet2Sheet3  Worksheets FMicrosoft Excel Worksheet8FIBExcel.Sheet.8CompObjDX