ࡱ> t^] Microsoft Forms 2.0 FormEmbedded Object9q VERSION 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 (H  #@4}:_,R KQCompObjGU(aVBFrame*;PROJECTwm/PROJECTV;  !"#$&'()*+,-./0123456789:;<=>?ABCDEFHJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnpqrstuvwxyz{|}~ \pJuan Pablo Fernndez Ramrez Ba= ThisWorkbook=<[;2<X@"1Arial1Arial1Arial1Arial1Arial"$"#,##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\);_(* "-"??_);_(@_)                + ) , *  `Sheet1Sheet2Sheet3"cc    dMbP?_*+%"??U>@7 Sheet1    dMbP?_*+%"??U>@7 Sheet2    dMbP?_*+%"??U>@7 Sheet3 \8#<JaA5ǧ3FI]A*K)[1xIThisWorkbook*%__SRP_2-@__SRP_3GgSheet1+I]A*K)[1JaA5ǧ3MEPSLSS6" <<<N0{00020819-0000-0000-C000-000000000046} `|kTh@% % %x h@@x@XTpFH$*\Rffff*1?4846bc7b$*\Rffff*1D4846bc7b4"  (8 HThis launches the toolbar B@o@8Attribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Ope@n() ' launches the toolbarmeT . End, rU 8U UQ #4  ` <   $ 4XrU @$`TnDrj#<* AyI̵ FITYM3K7bxITYM3K7b* AyI̵ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%@h % %Xp@@HH0FH$*\Rffff*1@4846bc7b4xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Dr#<iVqDз? F@K RO6x@K RO6iVqDз?MESheet2,\Sheet3oCheckColumn M__SRP_10# (SLSS6"N0{00020820-0000-0000-C000-000000000046}(%@h % %Xp@@HH0FH$*\Rffff*1A4846bc7b4xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Dr1#< KK[AȺ3M FEE6 B@W7 xEE6 B@W7 KK[AȺ3MME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%@h %  %Xp@@HH0FH$*\Rffff*1B4846bc7b4xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU~| 0  0 @  0  0  0   W(FH$*\Rffff*1C4846bc7bG" B<PX` " h@<p "   " ,0@H`&h  & 8$+0 838  Bp !     #( J@ % > =    6  X .h,1,-  H @PX "p(5:qxME<<<<4f @@T @BD `D@ F<%@HP, @J @L @N @P `R T8`%`V`X Z% eHH%@h8 `j06`|@~ @ `` h\%`Z 0` @8 x :(lumn%`> $$@@ @B `Deet? Fheet%@H @@J @L H@N &Ch@P olum`R TXP%`V`|@~ h@ >`!`ive %`ot a@"p %$*,l x\ tive@L tion< e ro@, d  @ 0  hPh8 $bt4 @ @ h ( @ @ @x @h  X iii@T  PO  L KKK  $ 8 #H  x # ( @ &X###   &OYYY *  .  ( ;&8  sss ; X @ | @z Fz x F (sss h ( J98 f ~~~P M` d x Msss ` W (H @F l D sss l |( B @ ~!)))` @ P ~x sss >  <  pp$*0l \ @L < @, 0 @  H%       2   (  @@  C0g     C(2tH C2t C0g8 @ P  X h px  " /  "     : :P     .  $! $- $-0 $@ $H P $!h x $0 ( $-     ! -  0 68  p x  &F ! - -  ! - -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          (V8@ P4`  Check Column? & ( Sort Sheets$$ *A@,k o@ Check Sheet? & ( Sort Sheets$$ *A@0k@o8 6A65536$4%B@Ho&Check if the current Column is Correct]]8]Ph]]0]H]h]]'>MetaData'D \!'B Select Active Sheet ^!`!J Multiple Areas Not allowedA@$k ^%`.Z'Get Single Multiple Selection<Selects MetaData sheet if Present. Sets Flag to 1 if present'N D B'D : b :! D'Nk :]] L Z!JDFind the Effective Columns Since Selections might have multiple rows h d!J h d%l L$Z!np0k( h L$Z!n dB@rp L0Get Total Rows and Columns That Have been Filled T tB@v'Get Num Rows and Cols from Range Object T!x!J'P!MaxCols To be Searched T!z!J'R$MaxRows to be SearchedAIf MetaData Sheet is Present We Load else Hardluck and show Error N]] 8PStart Loop on Columns Index h d!J h d%l'L Get Values From MetaData'J]h' D$bB@.F L$ J L$$4.F 9Check Parametes. Get Row and Col Count of first Attribute  J $F!SE: $F! $F! % 'k  YES  J $F!CL: $F! $F! % X'kx $F!RW: $F! $F! % X'~k $F!DT: $F! $F! % '|k dNO' L''~'|kx Shift Back To Original Sheet B$bB@ Check in Sheet Get The Cells in that Column]] ~ L$ ~ P  L$$4. 3If Col Has been Set then Check if it is of DataType YES |Number  !J $!$#Color this cell. error $B@H ^!( ^!('>d$Decolor this Cell $B@H$  ^!($!Selection.Interior.ColorIndex = 2 ^!(k0 d  !J $B@H ^!( k /If Not Been Set then check if there is any datadCheck The Other Columns  !J $! % $B@H ^!( ^!(d $B@H ^!( ^!('>k k hd"Display Meta Data has Not Been SetKMeta Data Tags Have Not Been Set. Please set them using SetAttribute ButtonA@$k B$bB@ >)Errors Present. Please Check Cells in RedA@$d No ErrorsA@$kxopbChecks if Column DataTypes Obey Metadata Specification for Whole Sheet. Else Prints out the ErrorsBy Highlight the Wrong Cells.]]0]H`x]](]@]`'>MetaData'D \!'B Select Active Sheet<Selects MetaData sheet if Present. Sets Flag to 1 if present'N D B'D : b :! D Activate the metadata sheet'Nkp :0Get Total Rows and Columns That Have been Filled T tB@v'Get Num Rows and Cols from Range Object T!x!J'P!MaxCols To be Searched T!z!J'R$MaxRows to be SearchedAIf MetaData Sheet is Present We Load else Hardluck and show Error N]x]Start Loop on Columns Index L R Get Values From MetaData'J]' D$bB@.F L$ J L$$4.F 9Check Parametes. Get Row and Col Count of first Attribute  J $F!SE: $F! $F! % 'k  YES  J $F!CL: $F! $F! % X'k $F!RW: $F! $F! % X'~k $F!DT: $F! $F! % '|kX d@ NO' L''~'|k Shift Back To Original Sheet B$bB@ Check in Sheet Get The Cells in that Column]] ~ L$ ~ P  L$$4. 3If Col Has been Set then Check if it is of DataType YES |Number  !J $!$#Color this cell. error $B@H ^!( ^!('>dH $Decolor this Cell $B@H ^!( ^!(k d  !J $B@H ^!( k /If Not Been Set then check if there is any datadP Check The Other Columns  !J $! % $B@H ^!( ^!(d $B@H ^!( ^!('>kx k` LdH"Display Meta Data has Not Been SetKMeta Data Tags Have Not Been Set. Please set them using SetAttribute ButtonA@$k B$bB@ >)Errors Present. Please Check Cells in RedA@$d` No ErrorsA@$k@o80|Attribute VB_Name = "CheckColumn" Sub D () If MsgBox(^ `?", _BJvbOKCancel + vbQuestion, "Sort Sheets")u) Then 1  "Multiple Not allowedijaa Set '= (1) 'G`Sing Ϧ s E!D;aT$<. ts FaMtoWp?o R '0M= O&Q#For Each#\In'\sA*`c0g +1G(Next !fstrWNewar|`9 ia!`iJ]Ad{ >o4A 'F€Eff@aJ`s 7ce.A$s mig`have cFr`n 'Ba+%Item(i!FK(").lXEGoTo DonlmX"0iAdd (t`܁ :C a_@Total  a@E+That H)been Fedex₈.CpDeter`mineUA Bl@j s from  Ob^jbġ!b=.2 'Maxs (bardd a"9 >BMf5;We Load eRrdluckbshow Erro\#!h>M4dPTyppM,faP e mIC^q'StaLoop on923Q/ldX7q-@2/KValy@ FakS^= 15{sZ,w1ph^~s"(j).Aqgat6f@,R{=d^h@_{+)(s(1}),  ?E5 uPartes. gU7 of firs{ 0{Q@(I*n (().,E:b)U qVBA.Mi d$4, Len) O!K @!YES"W2D?O76"CLOJ<`5C@q(__a=Vo& _"P"RW[-= Rng( yDT[f[=1 , t ,Y /2EϦ4NOV),b ;u("Oz 'Shift Back To Original Sheet WorksX s(act@).Activate! T'Chein'Get The Cells $that Column GDim colRng As Rang hA Index"I@nteger ES+oE=D(=(attrRowNo` + 1,D")F,K Nums4 -)1'Ifg Has beeAthf it is of DataT5;End IfwNextft;{ :*?! p P(ANo ʰcf re!any ᦫ *aOds/.)eVBA.Trimԩ & ""a"=a 7x1KP1Jb9O0  O]= ߏNo`x o`z[ ? $_?3z O;2i+'Display Metar h7MsgBox B"Tagsve . Ple aps#m usi𠠑Aibute Button"D X@?t=6U Es Present6 Ӝ¤qRed5vU 1Sub h ` IWith1(G0֣s ObeQL Spec@ificat` f|Whole.  int0utaP 'By Highlc0Wrob.A !ws, wShtCbpBoaī@Name, ,0 sht!Strxil/ ANo,Pq ˔, `?sHaFF%edcexƂ.CallDetermineU"] "X & 9s` from`9jovǴ( D.a 'Max*`bxear@d =x "`  Ifɴ MetaData Sheet is Present We Load else Hardluck and show Error If$zr= 1 Then:BDim dType As @String >attrRowNoD,  Col mAIndex6I`ntegeuW' Startop on 3umn s 0]For iCo Num-*s!%GValues From cou$5 qcolS"p0= ""  Workss(shtName).Activate.fillRng = Noth 2 Range(Cells(1,), e=)KK'CDhePar)tes. M@m…T`Gof first Auibu1AdGvDe#O!@I*n(>().k, "SE:">)@D͝E1_VB@A.Mid$4, Len)KEIf/Nex|t +K9YES" 2)O !QCL(Ft.Cr(* *tP+ "RWf [NoP> `DTf= 77?&{ YdE iN~O,))X7 iA1(*M; 'Sh@ift BaTo OriginalKactin'z`a that \lPt+mRpgmRez)i@Q= i+ nj{Rows -gLCk 'pAaiHas bee`yt lif iRka {Y? [a! ber]]sq=.q Iseric(`aTJarFa1+;' s c. eǟ^Select  ion.rior.3ooiBordersS]<flaTru  M'|Dea ~ ___[2?_XRBc b 6o6k^'_?/L P0 BPc'"P`Qrean~y[_fQdOcՑq;MщTrimM &QM"U^11U]R  =Tu(NColor = 15 Selection.Interior.Index~B3|flagJTruePEnd IfDNext col t 1i| Elso'Display Meta Dahas Not Bee n Set Ms@gBox "Tags Have. Please set them using&Attribute Butto n"JWorksheets(actS).AvvatD.If Hk ThenO)Errors Present$Check Cells in Red c F:No O*  gSub __SRP_11CreateToolbarG!__SRP_4< __SRP_5grU $`$`$`$`$!`nrU~| *  A i 1 Y q  )IiU Column (checkColumn.CheckColumn (Add a Check Sheet button l !%r. (  (Sheet (checkColumn.CheckSheet (Add a Cross Link Pop Up List l !%r. ( CrossLink (Add a CrossLink to Cells button l !%r. (  (To Cells (CrossLink.CrossLinkCells (Add a CrossLink to Sheet button l !%r. (  (To Sheet (CrossLink.CrossLinkSheet (Add a CrossLink to Sheet button l !%r. (  (Delete (CrossLink.DeleteCrossLink (Add Lock Facility l !%r. (Lock (Lock Document Metadata l !%r. (  (Document MetaData (LockDocMetaData.LockDocMetaData (Lock Document Metadata l !%r. (  (Attribute MetaData ( LockDocMetaData.LockAttrMetaData (Add Unlock Facility l !%r. (UnLock (Unlock Document MetaData l !%r. (  (Document MetaData (!LockDocMetaData.UnLockDocMetaData (Unlock Attr MetaData l !%r. (  (Attribute MetaData ("LockDocMetaData.UnLockAttrMetaData (o l !%r. (e Desc  (( Add a profile description buttonProfile Description ( +setProfileDescription.setProfileDescription ( ӴAttribute VB_Name = "CreateToolbar" Public Sub A h() Dim cT As CommandXBar6 ' Buttons*nctl 8Control #ts{ ] $*'Delekif it existpFo@r EachI n Applatpion.\mIf.hem'ry Cyber-Infrastructure" ThenFL0NextQ a` new T SetK.Add(D:="CD, _*bPosiq:=msoTop, Menu:=False, Temporary:=TruevWitCKG.VisiblA '.Protec1NoVerticalDock End wCC'6@E ument'taDxataD H= YDsBFTypeς8DÚ2cb .qCSty4A-¨C|ap26")ɁZ OnAEA"setDMe3>. D?Column Header L=Popup=4sKC,"u3-3n3B4ςdcbb2C-s3 ċ3RowvRbQjub.Wdel).?YdSprofi@d@describc Ǡ >c¸s@yEs !] a( "D'!A AAd" ormB"")Cf!Jta  hck F8 UpJ0}/Zd(0J_ tT O 0bT)6)#ccO:esO: J ^ 4i)checkc:./atSheol#S?9rB "'ross'n' j"xOH?'r#}Link to Cells_R(bol(bOrZ((p4]T4 C .R Pf'))0hI&Y8k=yR wT 88O__ㄖoL` Facility#_8Vp?`O12[c 3"qd) /7777707Ô O(r@ vyQ/ 7/ntrols.Add(Type:@=msoCoButton)  cbtsub.Visible = True h8Sty0rCaption H&~"Attribute MetaData" *OnAc?+LockDoc(.? 9?B' Unl3 FacilitySet cbctlScbar.Popupπ~ kUnNeHFaumentx KK'rN)e>fAAn@k"A{H<.@REnd Sub R=xME @(L(L6 ]cu](h]@]`x]] CrossLink'Data \!'B Select Active Sheet to return toGet Source Cell RangeSelect Source Data Cellsl %.  %!' %!n' !J %!' !J %!n' !<!'d"Please Select a Valid Source RangeA@$kGet target Sheet Name](]@'h : b :! h+ h 'h : Select a Sheet %' False|kFire in the Hole6Got Cell Ranges Load Check if Cross Link Sheet Present D %'>0Get Total Rows and Columns That Have been Filled T tB@v'Get Num Rows and Cols from Range Object T'Rd T!z!J'R(MaxCols to be Searchedk]Xp''''Add Tags R $ R $$4.F CROSSLINK:YES$F(NUMBER: R %$F(SSHEET: $F( SASTARTCOL:  %$F( SASTARTROW:  %$F( SAENDCOL:  %$F( SAENDROW:  %$F(DSHEET: $F( DASTARTCOL:  % $F( DASTARTROW:  % $F( DAENDCOL:  % $F( DAENDROW:  % $F( B$bB@Created CrossLink A@$o] ]0]P]h'h : b :! h+ h 'h : Select a Sheet %' A@$oSThis 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$$ *A@ko]] ]@Xp]]]0H]h]]0H]`] CrossLink'D \!'B Select Active Sheet to return tohSelect Source Data Cellsl %.  %!' %!n' !J %!' !J %!n' !<!'d"Please Select a Valid Source RangeA@$`kXPSelect Target Data Cellsl %.  %!' %!n' !J %!' !J %!n' !<!'d"Please Select a Valid Target RangeA@$Hk@6Got Cell Ranges Load Check if Cross Link Sheet Present D %'>0Get Total Rows and Columns That Have been Filled T tB@v'Get Num Rows and Cols from Range Object T'RdP T!z!J'R(MaxCols to be SearchedkAdd Tags R $ R $$4.F CROSSLINK:YES$F(NUMBER: R % ( &0,xME<<4<<6 << <<<<< <$<(<,<0<4<8 @`J `J`l `@JTT d  \(%@L @< @, @ @` `@80 ;%@@ x@B `D FX%@H @J @L @N` @P| `Rz Tt%`>r `hx`H @ @x @h @X ` d ( :H%`h` ` s ` MM{ % 8%@ @ @ @ @ @ @ @ @ `@8 :`%@@ @B `D F%@H @J @L @N @P `R Tx%`> @% FH$*\Rffff*1E4846bc7b" JR<X  " ((    " (0@Hh x&  2  0P 8QX::GG. ,+(X` h!  (3(0   8 <P 6   . 08,-@p x     4 " 0B@ -p.:.:,:,:  -P.:p.:,:,: /0+@` " hp (   " ( Z0 J v X ` h " p x        & 0 8  @ 2X  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$$ *B@A@k@o8@Max CrossLinks set to 50]Delete CrossLinks %'o] ]]0H`xNoVert]$F(SSHEET: $F( SASTARTCOL:  %$F( SASTARTROW:  %$F( SAENDCOL:  %$F( SAENDROW:  %$F(DSHEET: $F( DASTARTCOL:  % $F( DASTARTROW:  % $F( DAENDCOL:  % $F( DAENDROW:  % $F( B$bB@Created CrossLink A@$oAttribute VB_Name = "CrossLink" Sub  1B< #aGo ~*D DC#rDHK[i]xi@*1For EachyIn sAiAA}aa i Nextb ⃃!m.^OpaW( , _F%/eS "BR"lRExiub#?(!'FireeH}GotHos Load Check i@A $0$‡DetAdd](d`n ~Total e` >Ps@at Have beenledex t#@.CallDnrPmine db NSQsCObjecnAcR@Tru@%W=^ t0.4.9r; '`ybe Search_/dG, d0Qmsp8/-*9 =' TagW2YUl=#\(P, e+ 1),&=@~2{X4ATValQgROSSLINK:YESTCu2).vNUMBER:" &tA.@v(3SSHEETNB+4ASTARTCOL^ 5ROW6END~}7>#8݈DwH9q)10} +vDA(Q.+#^C7b(Տ).A1#e%pC0teT5 +@ SZp`R !>!g?BpQrppZtp=rnp phObponpCgp(3H}3c26Rm?4aner>0wFB onPy bQ_P_C( -W أ'v,CxpUJ@ϊEndRowNo, sStart8Col`P Dim d|}d.n. nsourceSheet, get As Stringciws, wSht!Works;AttrName, acJht SfillRngRangeHccounMind ex$TPrese NumxGks"Integer#used0flaAA@'(Goty s Load Che@ck if 䋄 "= setibute Form.Ad:d(ě 'G@Total {s a`T%sat Have @been Fedexcel.CallDetermineU! db * s f# Ob>jAkVTru= 0w'$ $Bs.K 'hMaxs` Searchev5) TagsWc Aw=#(, E+ 1),(12dVpE0AhROSSLINK:YES%u2).vNUMBER:" & VBA.p|( 3SSHEET/3T"4ASTARTCOLȊ 5ROWRt'No6END~Ua7>g(8DC9Q\ <10  g(10y DA(R}#^CQs"(Ր).A1attQCre0KU +  Sub 0  0 @  0  0   0   0   RrU $`$`$`$`$!`$I`nrU~|  0   kxrU $ `nink as a>options button with the effective Source Range to target range]hColumn_Headers'D \!'B Select Active Sheet to return toCheck if Sheet Exists]]'> : b :! D Activate the metadata sheet D$bB@'>k( :&If Sheet not present then just get out >!No Column Headers have been Set..A@$zkYNow 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.] T tB@v]'Get Num Rows and Cols from Range Object T'Rd8 T!z!J'R(MaxCols to be Searchedk RNo Column Headers have been SetA@$zk5So 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 !*!%r.   9 Serial Number999, 9.90q Source Sheet forms.Label.1 !*!%r.   9 Source Sheet9d 99, 9.90qxSource Cell Range forms.Label.1 !*!%r.   9 Start Row9 99, 9.90q Target Sheet forms.Label.1 !*!%r.   9 Start Column9 99, 9.90q8Target Cell Range forms.Label.1 !*!%r.   9End Row9T 99, 9.90q forms.Label.1 !*!%r Microsoft Forms 2.0 FormEmbedded Object9qVERSION 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 ThisWorkbookThisWorkbookSheet1Sheet1Shee.SxME P<<<<<<46 <<$P ` DD@  p%  % B@% %`50``h'`` 0`" Vert@D `B :` %`> TCros%`R@F 28%`4@ `6@8 @: @< `>@@ @B @D `F@H `J`N`@` b%`d(%00@FH$*\Rffff*02484d13d3DB  (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  X 2p 2 2 2   P 0p             ( 0 *P            $ *   (08@PX  `   h*     $*( X`hpx    $* (0  8 @  P  `2 2PXhpx  6*  .(.X  .02HV 8  @X*`     @@    > *0@ H(`4    (  8(Px     ]@As VBComponent]X]x]]]] ]8]P- Hide VBE window to prevent screen flashingB@. Application.VBE.MainWindow.Visible = False Create the UserForm !$!&%r. Width ,(GRead CrossLink Sheet and Load the Friggin Forms with the CrossL.   9 End Column9 99, 9.90q  '] ]@'4 h R$Make the Userform Buttons and Labels h$ h$$4.F]Xp]]0]H` h'Get Column Header Number$F!$F! % '6FGet Source Sheet Source Range$F! $F! % X':$F!$F! % X'8$F! $F! % X'>$F! $F! % X'<Sets Selection Buttonforms.OptionButton.1 !*!%r.  9Column Header: 99,9 9. 9L90 4 hG9j5  G5' jqSets Source Sheet Label forms.Label.1 !*!%r.   9 699,d 9 9.90q8Sets Source Sheet Range Label forms.Label.1 !*!%r.   9 :99, 9 9.90qSets Target Sheet Label forms.Label.1 !*!%r.   9 899, 9 9.90qSets Target Sheet Range Label forms.Label.1 !*!%r.   9 >99,T 9 9.90q`Sets Target Sheet Range Label forms.Label.1 !*!%r.   9 <99, 9 9.90q  ' h Add the Cancel buttonforms.CommandButton.1 !*!%r. Cancel99,,99 9.q Add the Delete buttonforms.CommandButton.1 !*!%r. Delete99,,9^9 9.qp  '/ Add event-hander subs for the CommandButtons]x Worksheets( B ).Activate 'N !P5R'  Sub CommandButton1_Click()C@T   GETDELETE_RET_VAL=FalseC@T  Unload MeC@T  End SubC@T  Sub CommandButton2_Click()C@T  Dim ctlC@T   GETDELETE_RET_VAL = FalseC@T   For Each ctl In Me.ControlsC@T  A If ctl.Tag <> "" Then If ctl Then GETDELETE_RET_VAL = ctl.TagC@T  Next ctlC@T  Unload MeC@T  End SubC@Tq  Adjust the form Delete Column HeaderCaption;(&Width;(  Height;(q0  Show the form ! !V%rB@X Delete the form \ !$!&B@Z9 Pass the selected option back to the calling procedure] ^'  B$bB@zH k@ 7Now Get Option has Column Number which has to be delete#Basically Shift All Columns to Left]] h  R  h$ h$$4.` h $ h $$4.b d Copy cRange to sRange d$b! d$`( d hUnload Last Column R$ R$$4.` d Copy cRange to sRange d$`( dDebug.Print (GetOption) B$bB@iAttribute VB_Name = "delColumnHeader" Function hs() Dim TempForm 'AsComponentDNewL abel @MSXs. "OpkButtq)  0imand11 \ 32Text0LocaJInteger*X" , iTopPos Max WidthLong WasVi sible Bo olean "'HidE window t@o prev screen f`lashi* Applia.VBE.MainW.E= False Crea@the UserlC SetG|= ThisWo@rkbookProject@@`Cs.Add(3 .@ pert ies("A")a1000E:: 'R CrossLink She| Load 'Friggi|n B@D@T aHs a'oBs& @wi eff@-ive Source RangeUtarg@rsht`, act$S_ԅqAՃ_sw5 =B.!B'Sel@# AA$a3t  N@znumber of c²s \d M'#B;@.. Dir@GlBy rres pdsXC  hs s@\so cyc`through l5f@. +aeCn remothat @ft all c!xl xleft.c!UusedRn"RoA#excel. C D rminjed  Num$#'G`@ RowEfrom~ObA ?(Is N ot!True,BgEZ$ . s.coupnt ' b`}b earchedD@SD=S)~?'So w|e !1V*Vs P0re(splayZm$Askr whi`E`A0( want!kiL7tc^iGqu= 46u  'Sto00 aQv@/~w`s=4oc< O#ePeaqV`q4.Des ignernthrolp"4$.1"q"W!i#.= 85r CamfSeri8al .L 7@8Heig`b= 15cAutoSiz0*a #uK#__2__ _E?Wc O@LP + 6.?FCeTbOs_'_' _'Q  pt!U8T5 .}T?'ȟ::rm: ?'t ?':23`of26o:oo?'?'t"ANoN?'?'B ?' :' @|34#:6c/9/9/9/9%%% %Q`Ǵt = 8 + @420 . Heigh151 dTopPos hAutoSiDze>rue:End With" JjDim fillRng, check As RangU#DefaultIntegeFrY= 1For ii1 To NumCol'Make the Userform Butt ons a[Labe SetN)I(Cells(1, i), z5)?]col#, sShe'mStrin2gssTsRow, eey1,sdd eAdd, t@!G$,<0i 'G-umn HeaderUb`#D6= VBA.Mid$(t(1).Value, 7, L$en))Source H!G'BH= C(N2F10yE))m`<3}4 E nU&4}9_&5?&@ YE +ets Select8iondb'`Ne8wOpfTempmm.Designer.Co(ntrn.L("ks..1"-{8! L !a. Width@80Ca" U: " & cY LefB` ΢"Tag6aIf ǚi Then hHd$> Max%= #w g'@? Cs ?'dCBms.AG Dؿ@_>@12 ?:;/-,-p-0oUq.'7~s!X_58?= . cTarg oz(.P2.O,u q @OG Uq.26 .   oӟ/tbFgНFT  b~ϑ34//// /ЁG/ԡ?[N`,op+ 3Next i 'ѻ!Cancel bTComm̓1222jg["3 6"'w8X44H15(1 ,%Dteew 2[x /3 01= = 3"3%!!' Add event-hander subs for th@e CommXButtons  Dim com As String,$= "Worksheets(" + actS").Activate"dWith TempForm.CodeModu lekX = untOfLi ne.InsHert X_1@, "Sub 1_Click() r92 GETDELETE_RET_VAL=FalsU3Unload M5End P_Etgg2!g6ӂJtl{7 =\^>8m Each ctl In@kntrol s9 If.Tag <> " Then?Q'@ 10Next  bq1qA r just{B@mJPropertie@Caption")`"Deletlumn Hea 2 WidDth 550H eight TopPos24C#ShowV0BA.U@nus.(FwName).a da' Thisbook.VBjecFt pons.Remove VBf:= C,Passs %@cted o' back tobcall procedurc0GetO`In`teger '=C@Xi0VC;%Exi t Funon32Ifc'N@2 dhas`!bCNumb@whi`q`be dCHBasia!y Shift A ll`(o Le ft#!#sRange, cAjaJ&c!iWQ"To C@ - 1A#Set  (Cells(qi), ci))=~ *ji 1 5 'Copy'ckc(j).Val|ue c&"j[bic'La`#|"()Edd' "G 'Debug.Pt (2S o/ti/-.__SRP_a __SRP_bgDeleteLinkbDexcelRange .VBE.MainWindow.Visible = False Create the UserForm !$!&%r. Width ,(GRead CrossLink Sheet and Load the Friggin Forms with the CrossLink as a>options button with the effective Source Range to target range] CrossLink'D \!'B Select Active Sheet to return toCheck if Sheet Exists]]'> : b :! D Activate the metadata sheet D$bB@'>k :&If Sheet not present then just get out >No CrossLinks Present..A@$zkMNow 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.]( T tB@v]H'Get Num Rows and Cols from Range Object T'Rd T!z!J'R(MaxCols to be Searchedkp RNo CrossLinks PresentA@$z8k05So 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 !*!%r.   9CrossLink Number999, 9.90q Source Sheet forms.Label.1 !*!%r.   9 Source Sheet9d 99, 9.90qSource Cell Range forms.Label.1 !*!%r.   9 Source Range9 99, 9.90qX Target Sheet forms.Label.1 !*!%r.   9 Target Sheet9, 99, 9.90qTarget Cell Range forms.Label.1 !*!%r.   9 Target Range9 99, 9.90q  ']`x h R$Make the Userform Buttons and Labels h$ h$$4.F]](]@Xp]$F!j$F! % 'GGet CrossLink Number$F!$F! % '6FGet Source Sheet$F!$F! % 'hFGet Source Sheet Source Range$F! $F! % X'8$F! $F! % X':$F! $F! % X'<$F! $F! % X'>Destination Range $F! $F! % X'@ $F! $F! % X'B $F! $F! % X'D $F! $F! % X'FSets Selection Buttonforms.OptionButton.1 !*!%r.  9 CrossLink: 99,9 9. 9L90 4 hG9j5  G5' jqpSets Source Sheet Label forms.Label.1 !*!%r.   9 699,d 9 9.90q : 8$ > <$$4.2 2!l'H B2xMEh @<<<<<<46  @D `B% ; %`> T@%`R@F\ 2`X%@ @60 `hx@8( @: @< `>@@ @B( @DX `F@Hx `Jt`@ @` b-Pa%`dom t `x  @iDremo : %^ @%8FH$*\Rffff*1G4846bc7bL 4@ VH B   4 4P 9  N D0x 2"  !  "0 /X hp x  , "+  T bX $   .8HP,-X   +  < 2  Hh2 p    */     ( @ H P  X`  h*/           */  P X  ` x      */       (  0   8 @  H */`                  * (P x    Ja Fa0 F]x  2j 2j 2jH 2f  2j 2j 2j@ 2fx   0/    08@ H P$X,p  */       (( P(-` (   $*/  08@HP` h  p   x*/        $*/8  hp x          2/ ( 0@HPX` h2/     6 HX.`.  .00P2V 0P p  x  7 (6@  @`    > *@P X(p4 *< ( 0:P p x   (   ( 8 2HX B  `hp "   " 0x-Passed back to the function from the UserForm] PCreates a Dynamic code based userform through which users can remove cross linksre]As VBComponentn.VB]]]]]0]H`x]]- Hide VBE window to prevent screen flashing. Application @ B @$ F D$$4.2 2!l'Jd8'Jk(Sets Source Sheet Range Label forms.Label.1 !*!%r.   9 H99, 9 9.90qSets Target Sheet Label forms.Label.1 !*!%r.   9 h99,, 9 9.90qSets Target Sheet Range Label forms.Label.1 !*!%r.   9 J99, 9 9.90qP  ' h Add the Cancel buttonforms.CommandButton.1 !*!%r. Cancel99,,99 9.q  Add the Delete buttonforms.CommandButton.1 !*!%r. Delete99,,9^9 9.q  '/ Add event-hander subs for the CommandButtons !P5R'  Sub CommandButton1_Click()C@T   GETDELETE_RET_VAL=FalseC@T  Unload MeC@T  End SubC@T  Sub CommandButton2_Click()C@T  Dim ctlC@T   GETDELETE_RET_VAL = FalseC@T   For Each ctl In Me.ControlsC@T  A If ctl.Tag <> "" Then If ctl Then GETDELETE_RET_VAL = ctl.TagC@T  Next ctlC@T  Unload MeC@T  End SubC@Tq  Adjust the form  fCaption;(&Width;(  Height;(q  Show the form ! !V%rB@X Delete the form \ !$!&B@Z9 Pass the selected option back to the calling procedure] ^' z8 k0 7Now Get Option has Column Number which has to be delete#Basically Shift All Columns to Left]]  h  R  h$ h$$4.` h $ h $$4.b d dNUMBER: h % d$`(dCopy cRange to sRange d$b! d$`(k d hUnload Last Column R$ R$$4.` d Copy cRange to sRange d$`( d[  B$bB@i8] : b :! D Activate the metadata sheet D$bB@z0k( : D n!r( n!J$nr D$nB@piPAttribute VB_Name = "DeleteLink" Option Explicit 'Passed back to the funcPfrom"UserForm Pubv GETDELETE_RET_VAL As V arianVCreates a Dynamic codefluNfN[rough which s can remove croPss lsF(Default, Titl e) Di@m TempY  'MBComponeONew Label]MSys."Butt% 4mand1 . 2Text0LocaӀJIntegerXD, iJTopPos Max WidthLongGWasVi sibleBooleanTHixVBE w indowAprev\ screen flashi'`Ap0. .MainW.E= Fal|seB CSetG|= ThisWorkbookProject@@`Cs.AdXd(3.@ perties(" A")@1000E:A'Read CAA She1| LoFriggin B@D7@T a'os wi (eff@-iSource RanDgeBarg@rGsht~, actCCS8AF=`.ˆ'Sct A`returnC!'Che@if"Existw wSh s 3s! ACgaKjY= /) Eas`InD ILf = TheUa'""Jmetadat>a9%s( ).+1@End IfNov'5nhot `fsafEn@ just A=o~uડ`E"\)MsgBox "NoGSs Pre ..=a`2t 7cN`xAnumber of@lumns ZY8.. DirU4lyr`ldsaUd  so cyc th/ah`E2.' d Pb"that&$ ft allǂleft.caM`dRnMj#excel).C@D@rmined  NumCol#'Gt@ Ro>w~ A ObA`;(Is Not!True=fcER1..count '^<be Searched '?'''Ӆ'S`o we  P'&'s Here'splay;A'#AskarT@ @w(kiI44`2@I}Er= 4r 'Sto.^1s}-w@p ;ρlHd05Ob!N5?An6@n.Designerntr(m"3.1"nQWfa1.= 8oCaӣ@ (-BL6@f8Heig_= 150AutoSizA01* #rU#2a0Dt| OpK + $ ..FCeSIs'' Q ' s2+u .}T3o'3::rm: :t oߥi of3o;ouo"o'o't"ANoNo'o' b@o'aN`;40a?o; o'o' p%opPos + 15 Dim fillRng, check$ As RangeFor i = 1 To NumCols2'Make the Userform Buttons and Labe \SetpRe(Cells(1, i), 5 2 )fcol>, sSheet, ds@String -ss,sRow,4 e e Integer d6deAdd, tC/]yVBA.Mid$((2). Valuex8, Len )) 'GCrossLinkb ^.3., .Source VӇ-X= -8}'șAm1Cg(41@KJ)E))Ȍs{= }5E V&6}0 qE @7E 'DestinationS9 )% s"a)10 F ez11 L*F y*1l, 1 E g`'s SexlecB,Û NewOp .Temp m.3igner.Co(ntr`.("!s..1"W7WithM !!a.Wid= 800Ca@": " & cPHeight E Lefa8TopagAut oSizeAruIIf Defauli Th8en Y#> 8MaxC%= # E/Bc'B"Bms.7AG #D_@./.%cO& . . Q=N^P|oa!{=6A9r es&(Not (eO-1 mA`!e`pb%;  geu qTp Ow CBQy ⅿ Els32$""H If,,tAH',M ,a 0M,,bD.Ls E_,qY,2_,_,_,   _,×STargҗ0eeD: sW e xD3  w /q<}///7 = E4 ( op3Next i '0[Cancel bCommӘ1rj3u[! "3 hWh(44x4l15u EDI0teew <tton2 = TempForm.Designer.Controls.Add(" flsLmmandBu.1") With@ NewCo<26>.Caption"Delete"8Heig$ht18WiBdT= 44LDef(350Top<PosEnd  C$ + 2@' event-hker subs v the g-+CodeModule4 vX4untO`fLine .@Insert XC1, "Sub41_ClicXk()2 GETDELETE_RET_VAL=Fals  3Unload M4 R@("G:35 3236@ Dim ctl=7 =\ ^>8@ Each In@k9 If.Tag <> " ThenQ'5 10pNext  bq1qAr Cajust^}C]CXProperties("{")`0TitIa."z5wicC opzau$!ShowVBxA.U l!Name).a#,ThisWorkbook.VB`ject `pon s.Remove VBf:= c$Pas s s`cted oàback tobcalling procedur!aGetOAs Uteger '=OE5;Ui0SExit Func,Ifc'N ,E has lumn Numbqwhi ib(e d tD'Basiy ShbiAll"o sRange, c jaIn cMyi@OToCa` - 1S8et  (C ells(ii), ei)$= aK"j1 1a 3a22Aa(j).Value"NUMBE R:" &PA.`Str(i E !a'Copy+5c ?Vo+"aKj3i˳S'KLaF$&j5O4&se _"W Debug@Mint ('2Csheet@s(actS).A5vaa16 ChecFk(By shtAKa/P0B2wS02amm0'z.=fQlG' Jmetadata g(T Y5GY$ 3"\ gMYAfter:=r(co 0Kw +!xMEP046 <<< <<<p  vh`|@@)t `% v`@)t %`xz`zx`|v`~t%hth% H40p @` @P @@ @0 @ @ @  @ @ @  h@0FH*\R1*#1c8$*\Rffff*1H4846bc7b"    "  "(P 8hX8h 8h8h 08 hp t tB@vo`h ]( *   %!'x *   %!n'z *   %!'| *   %!n'~  x z$ | ~$$4.toeAttribute VB_Name = "excelRange" Sub CallDetermineUsedp(ByRef theRng As *) .rf Endr ` i(eDim FirstRow}Integer,Col _La/  On Error GoTo HandleT:= Cells.Find(What:="*", 6 SearchDirection:=xlNextOrderows).yi 3L3+u|mn55GPrevious6?\YHQP7SetŪ=(Bo(sG)F1CF, -R) H:rU~| 0  0  0   0 LockDocMetaData  __SRP_14B__SRP_15setAttributeForm"%&2      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGIJLNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwyz{|}~  \PrU $`$`$`$`n%`>'x rU~| 0   (d (d (d (d (d (d (d (do Create MetaData] MetaData'D D B@ A@ro8]]]]]] ]8 ^!'@ \!'B:Checks if Meta Data Sheet Present if not adds else selects ^!n'H ^!' D B %'> >The Sheet is not visible exit9Attribute Metadata Sheets have been Locked. Please UnlockA@$ B$bB@|PkH H$ H$$4.FSet 1 Row to attrName AttrName: @$F(*Set Row 2 onwards according to form Page 1FQ: !d$F(DT: !d$F(UT: !d$F(EX: !d$F(OI: !d$F(*Set Row 7 Onwards according to Form Page 2EQ: !d$F(DF: !d$F(SS: !d $F(SB: !d $F(TO: !d $F(+Set Row 12 Onwards according to Form Page 3ME: !d $F(6Set Column Number (Used to Name Column in SQL DatabaseCL: H $F(RW: $F(SE:YES$F(Reactivate Original Sheet B$bB@DoneA@$oP]] : b :! D :!Activate the metadata sheet D$bB@'zhd`'zPkHk@ : D n!r( n!J$nr D$nB@p'i]HString B@Number B@ B@ (?Also Go an Check if the MetaData Sheet Exists. If it does Check$Whether Meta Data has been PreloadedMetaData'D]` \!'B D B B@Active Current WorkSheet B$bB@ox]]]0]H]h]]]]Selects Attribute ^!'@Selects Active sheet and Stores&Selects which Column has been Selected ^!n'H!Selects MetaData sheet if Present'N : b :! D Activate the metadata sheet D$bB@'Nk  :GIf MetaData Sheet is Present We Load else Hardluck and display Old Form NRead the Columns From Sheet H$ H$$4.F 'J L J Load Form TextBoxes L$F!FQ: L$F! L$F! %  (dk L$F!UT: L$F! L$F! %  (dk` L$F!EX: L$F! L$F! %  (dk L$F!OI: L$F! L$F! %  (dk L$F!EQ: L$F! L$F! %  (dk@ L$F!DF: L$F! L$F! %  (dk L$F!SS: L$F! L$F! %  (dk L$F!SB: L$F! L$F! %  (dk  L$F!TO: L$F! L$F! %  (dk L$F!ME:/xMEP<<6 <<< <<<p ` `D :p%`>'x `J`Dx ;t'|% `J+`Dx ;tx% ` >`D :%`>xa'X%00FH$*\Rffff*1I4846bc7bT" .8@PX`h x"       *(8X4  "  "8!@P ` 5x (+   0+  "  &8@` !hx  4 *+   .+ 0 " 8@HX`hp "       *08`6(Locks Document Attribute MetaData Sheets]@MetaData'D]X]x'> : bScan and Parseremo :! %  DAs Found a metadata sheet :!$b(0 > '>k : >$No MetaData sheet exists Inform User.Document Attribute MetaData Sheets Donot ExistA@$dh)Document Attribute MetaData Sheets LockedA@$k(o Lock Document MetaData Sheetx]Document_MetaData'D] : b :! D Unlock Shewt D$b(Locked Document MetaData SheetA@$|Hk@ :%Document MetaData Sheet Doesnot ExistA@$oUnlocks Document Metadata Sheet]HDocument_MetaData'D]` : b :! D Unlock Shewt D$b( Unlocked Document MetaData SheetA@$|k :$Document MetaData Sheet Doenot ExistA@$o]MetaData'D]]'> : bScan and Parse :! %  D Found a metadata sheet :!$b( > '>k : >$No MetaData sheet exists Inform User.Document Attribute MetaData Sheets Donot ExistA@$d`+Document Attribute MetaData Sheets UnlockedA@$k oAttribute VB_Name = "LockDocMetaData" S8ub TX()( '0s `ument R Sheets\Dim sht!As Sng:{c4wSh\s Wor ksPOflag LIntegeFr= 0 For Each 9FInFK3'Scan and `Parse IfA.Mid$ ( ._, 1, 8)\TheFn(Fou'a md} hs.).VisiblFal FG+n+ 1'E 6IfNextwe0 W0'No lBX exists Inform UsV MsgBox "~not E;tEJ4edgE;$ ? Ǭ'E5G=©wI>_&ث b@iƙUnlwt.AB0c,#D :t B.%'R> 1es GN `@`B F%`H` ` biDi  :%`> x`(@y `Dx`B0 `J@ [[iD i  9h%`>f `@` F\`%`H0Z`NhX`JV`LT ;P%`|L`JH@%pH %Px8@H%%xH xFH$*\Rffff*1J4846bc7b48<@DHLPTX\`dhlptx| " HKP " 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 2P ` B  h p x           ' &  ,  '8   (H p !x  "  2     N  @ "P (x     C 4  8  C@ 4`    C 4    C 4  X  C` 4    C 4   C 4@ x  C4  C4 8 C@4`     C0g 08PX ` p  x Cancel!! Are You Sure? (  $$ G A@rjo(@][Pages::'Reset Forms!! Are you Sure? (  $$  B@k(o Functions usedClear All Pages on the Form (d ( (d L$F! L$F! %  (dk` Set List Box]] L$F!DT: L$F! L$F! % '| |String' |Numbere'k  (k Ldpzhk`iXPAttribute VB_Name = "setForm"  Bas0{462E9E32-E3C3-40DE-A7AB-0AB483C9296E}{E54DEA8B-59FE-49F4-ABE3-DBB3F96C6D1D} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD P Sub Cancel_Click()  If Ms@gBox("!! Are Youre?", _vbQuestion + vbYesNo)k Then Unload MqsEnds Wthe4G$FQT.Text["GDTT.ListIndex0G UP EXTOIEFR SJSBTOME+Y$4H'BreOtaD`s!KshtLS 8(EMec,A!e% (j 0RbPB (ByRef fd wsdWorks0heetC flaBhBoo@Jn!QactSa " illRn1b Ranr`ucolNoAIntegerg row0&= SeleBdp.Val!%= @b.C 'Checks i 4 <  se @not @adds e :s sCo8lumd%cRonw",=@ .1AddBA &aB'C D ⾂#!'`is !visiexi= "+ ARd_s ha ve be Locked. P C3 ckh\Is(e1).A4v GEúasac Set fF= F(Cells(1, /), .5'!1  to a0G q(1)#P%:"2Uwarp!accolrdp\!fPW 1U2XFQUX3DTqYW4UUZr5EXu[6OI\SB17 On?f32573%a8DFDDbr9SSec1z0Bd TOe* 12 31 !MEbjE Number (U,Q, @in SQLKbl$CLb3ly$RWbKl$SaC "YES?' ReRWOrigpinal#DAtAH("Done^"=x{u RBy@`nA1hwShtf6# in:h@ Each In ' !PXRfD5wGVdX= \[1'US Qm`jYzqw ecoW K Zk E2=(? )`AN2q_Initialize% q]` Item (~".?DropDowuAc'Also Gon3$6Asts. ,it doesThWhe@r򰳒hasedq89v_GdndL`sFromSheet (shtName & act!) 'Active Current Wo\rk|xss(p.dateD End Sub Funon CheckAndLoad(ByRef As Stri ngODim 8ws |flagBooleanAttrTfillRnRang^6 colNo*In`teger}P8res,cou index*wSht o:'Select1hibuo= ion.Valuc\ aAfto0Cwhich Column has beened GI CI Meta0Datazif PI V= 0For Ea%IlIn£ sITf .{=T|he @ the m%d%ׇA bs)A -1IfNext)',#FE isEE We else Hardluckndispla@y Old Fm/CC" @'ReadBC6s !q6 {Sec= Bc(Cells(1, ?), 3%$vC`= 1>3a8` Toda'b T%Boxeh`. T( % F$@%`D 9`R`hb`\%%FH$*\Rffff*1K4846bc7bO" 8@HPX`h p "   :Q::(G@G`*,+  <0 6H   .23  (0 *H(xFe  jBhpx2    (+,:.:@*:p,: 2 4*    2(HXp]@]`x]]]]](]H]`Column_Headers'D \!'Brms!Get Source Cell Range$@Select Column Header Rowsl %.  %!' %!n' !J %!' !J %!n'D !<!'dh"Please Select a Valid Source RangeA@$ 0k(Fire in the Hole6Got Cell Ranges Load Check if Cross Link Sheet Present D %'>(0Get Total Rows and Columns That Have been Filledse T tB@vyo'Get Num Rows and Cols from Range Object T'Rd  T!z!J 'R,MaxCols to be Searchedk]x] h Rd#Check and see if we are overwritingd h$ h$$4.F$F!$F! % 'FGet Source Sheetet B  *Column Header for this sheet has been Set!  Press Yes to Overwrite $$  KT h'R KT B$bB@|hn`kX hesent Add Tagsse R$ R$$4.FSheet: $F( StartRow:  %$F( StartColumn:  %$F(. EndRow:  %$F(P EndColumn:  %$F(.F B$bB@$ Added Column Header for Sheet Name A@$| User Cancel RA@$ge 1oAttribute VB_Name = "setColumnHeaders" Sub X()  On Error GoTo Handle WC$T`7= #EE.+ $!,If#N@ ic#Cance|l @`DJ*1ӡJmsMmGƧJI ,.'E"cC@D,$BE%2 @(@N6#-KOKew 2_6R6jg[ OK13 .&2dd 2o-h Ser subs~ Ccz $cBhCodeModul H5X` "untOf[eInbtR X pTSub 1_C`Xk()2 ]=x'3UnloadP`~4 hM 5K 2 .6 actl? }7 7/83zEap In c9L R.TPW<> "Rs = D/'102oL1_ 1"k,AjuЍ2@=.#r,D<}2 w /.M+ se2$< 160  {V10T12 = QyjJ ^ J+ 2D^ShhVBA.56I!).1uDptQSOORemo尦V:=uS KqSsct oC3call procedur$S&`S3  PX`h x$,        2/ 8 @PX`px 2/   6  Xh.p. showDocMetaDataForm(Ffff oET"i01IpFz?affCancel!! Are You Sure? (  $$ G A@rjo(@]Reset Forms!! Are you Sure? (  $$  B@k@o8Functions usedClear All Pages on the Form x (d (d (d (d (d (d (d (d (d (d (do8] Document_MetaData'D D B@ A@ro8]]]]]] ]8 ^!'@ \!'B:Checks if Meta Data Sheet Present if not adds else selects'H D %'> >1This Sheet has been locked. Inform user to unlock-Metadata Sheet has been Locked. Please UnlockA@$ B$bB@|k H$ H$$4.FSet 1 Row to Excel NameDocName: !$F(*Set Row 2 onwards ac8 xME<<<4<8< <<<<< <$<(<,<0<<<8% `@X ffI x I4 If @ \  X% T% P(x%`xNcell`L'`hJ!``Helec` Dribu`"xB Va @ FHl 4@ B HPpx  4 4 (9Hh  2   N HPf 0/  08$@PX`h x$,        2/ 8 @PX`px 2/   6  Xh.p.  .@0`2V  @`   (:!   (8@ ` h7 6  @   0 x-Passed back to the function from the UserFormll b] ]As VBComponent ]]]]0]H`x ]]- Hide VBE window to prevent screen flashing%. Application.VBE.MainWindow.Visible = False Create the UserForm !$!&%r.  Width ,( Add the OptionButtons'' #Stores width of widest OptionButton h  ataHWe can Set a Max of 12 Sheets - 1 CrossLink - (Total Effective Sheets/2)ANow check and Add only Sheets which are not MetaData or CrossLink h$MetaData h$ CrossLink h$forms.OptionButton.1 !*!%r.  9 h$99,9 9. h$9L90 4 hG9j5  G5' jqH  'k0 h Add the Cancel buttonforms.CommandButton.1 !*!%r. Cancel99,,9  99.q Add the OK buttonforms.CommandButton.1 !*!%r. OK99,,9  99.q/ Add event-hander subs for the CommandButtons !P5R'  Sub CommandButton1_Click()C@T   GETOPTION_RET_VAL=FalseC@T  Unload MeC@T  End SubC@T  Sub CommandButton2_Click()C@T  Dim ctlC@T   GETOPTION_RET_VAL = FalseC@T   For Each ctl In Me.ControlsC@T  A If ctl.Tag <> "" Then If ctl Then GETOPTION_RET_VAL = ctl.TagC@T  Next ctlC@T  Unload MeC@T  End SubC@Tqx Adjust the form  fCaption;( ! ! Width;(Width7( Width;(j (j (k  Height;(q Show the form ! !V%rB@X Delete the form \ !$!&B@Z9 Pass the selected option back to the calling procedure 'iAttribute VB_Name = "sheetSelectForm" Option Explicit 'Passed back to the funcPfrom"cording to form Page 1TTT: !d$F(CRT: !d$F(DTT: !d$F(SBT: !d$F(DNT: !d$F(*Set Row 7 Onwards according to Form Page 2BCT: !d$F(CTT: !d$F(DAT: !d $F(DCT: !d $F(PBT: !d $F(VET: !d $F(Reactivate Original Sheet B$bB@DoneA@$oP]] : b :! D :!Activate the metadata sheet D$bB@'zxdp'z`kXkP : D n!r( n!J$nr D$nB@p'i]]]]]]](]@]XSelects Attribute ^!'@Selects Active sheet and Stores!Selects MetaData sheet if Present'N : b :! D Activate the metadata sheet D$bB@'Nk :GIf MetaData Sheet is Present We Load else Hardluck and display Old Form NRead the Columns From Sheet$ $$4.F 'J L J Load Form TextBoxes L$F!TTT: L$F! L$F! %  (dk` L$F!CRT: L$F! L$F! %  (dk L$F!DTT: L$F! L$F! %  (dk L$F!SBT: L$F! L$F! %  (dk@ L$F!DNT: L$F! L$F! %  (dk L$F!BCT: L$F! L$F! %  (dk L$F!CTT: L$F! L$F! %  (dk  L$F!DAT: L$Frs#(q! L$F! %  (dk L$F!DCT: L$F! L$F! %  (dk` L$F!PBT: L$F! L$F! %  (dk L$F!VET: L$F! L$F! %  (dk Ldzkxipx]?Also Go an Check if the MetaData Sheet Exists. If it does Check#Whether Meta Datahas been PreloadedDocument_MetaData'D] \!'B D B@Active Current WorkSheet B$bB@oh`Attribute VB_Name = "showDocMetaDataForm" Bas0{CC0E0487-DAD2-48CB-94A7-2E232DDEDB09}{8BC764E1-7118-4BEA-8B7A-9F3BEC32 3722} dGlobalSpacoFalse HCreblPredeclaDIdTru BE`xpose0TemplateDerivCus@tomizaD  P Sub Cancel_Click() If MsgBox("!! Are Youre?", _vbQuestion + vbYesNo)l Then Un tA  $D[=U>G-,_‰M)< 2xME@SPSSS<<<<4 Opt`@h`Ba F%`H` ` YiDi  :%`> x`L@H NNpiD hi  9d%`>b `@\ FX%`HV`NT`JR`LP ;Lp% `L@ `Dx`Bt%@ %Px8@x%%`bHp @` 333@P L X H  l o`Dhx HFH "HKP " X`@h  " "   0 @ P ` p     "    "  (08@HPX ` p  @    88(`px  (  $  0  @ `    0   0 P p   B     0 "@hx    " B    (08@HP  X 'p &  (! " 2  08 @ NP   "(~     C@ 4`    C 4    C 4  X  C` 4    C 4    C 4@  x  C 4    C 4  8  C@ 4`    C 4    C 4  X  ` p x   "   F * 8 "@P `2  load MtEnd!ye (D d 3\I? (ByRef Od awsa^Worksheet#C flaaBozoFn! axctSa I$ illRnb Ranel!colNoAIntegerg row0&= Sele`.Val!%= @b.C 'Che`cks i m s@8Anot adds e s s= 1G5b'=...bAdd l=?²" 'Thishas belocked. Inf@r to uckg "aMduLP>݁Mc&kWDs(E,).A/v Exitc!"laaaAcSet fB= bB(Cells(1, b+), ]2%DW#'A1 RowEx@ a1tore<a2rs= D+o?D)o?o?<< E_< s Uʗ2O ' Sheet is Present We Load else Hardluck and display Old Fo`rm If s= 1` Then:N'Rethe Columns F`rom Sj%SfillRng = Range(Cells(1@, 1),  2 )7 cou 2 indexSo $Ozk Text`BoxesqInStr(P()).Value, "TTT:")1 }/TT.-VBA.Mid$%5, Len-)z*EIfɫTCRTCR** "DTDTea*'p+\SB\SB?\?\.N=DN?ObX)XngmBC=BC??+=?/CXCX*z*WexgDAA^A,,,DADWA, =PP7?? A VE &VE |;o,OLd YnN`{c~3EExit Functiod< 7 Private Sub User_Initialize(4DimtNa@me As 0i ngS'Also Gop Ch"eif Me@taDatas a@ sts.!$ doesTWhe)@r Q aha@s beenћlIPedsh=]ocum_"#1 actM v= iveR. owDoc%a.!Ad M('Av0urrҦorksWrs(5|)."P#C MEP6 <<LL<@ `H p% f`| x0`>@ `D\`BXH$pL  ;TPxxHFH$*\Rffff*1S4846bd23*\R1*#2ac*\R1*#e8*\R1*#dc*\R0*#14"  J \px  V"  2"X P 2+xophxCThis Creates a Crosslink from an Area of Cells to Sheet in the FileA@k(o (Create a Profile Description Link Sheet? & ( Sort Sheets$$ *O Creates a sheet that will inform which sheet contains the profile description.8 \!'B Select Active Sheet to return to] Reactivate Original Sheet] B$bB@DoneA@$XProfile_Description'D D %'>HAttribute VB_Name = "setProfileDescription" Sub `LinkSheet() 'This Creates a!osslJ from an A6 of Cel@ls to ? in the FxIIf MsgBox("NM  C?", _<vbOKCancel + vbQuesˀ, "Sort2s")z ThenEnd If  '{shat willoform which contain{pt d.DDim&tAs Sng, act Wflag Integer1ALshC]DZ_  =iveB. 'Select ActXxretur=xoC"= 8ƢFI.CheckAdd(%IERe iv OriginalCCWorkXs(*).$@ Õ ("Done"q__SRP_c)x__SRP_d_VBA_PROJECT1 'dirrU~|   V )Q1W0 x  C\"L$ @LW<`1XL5<2(lXF,%L$ L d()L(+''':,N<< 6<`Hd( bePXT\$L(<frU $ `$ `n0* pHdChemxSeerExcelAddinforWindows!U D F H J L@BLhemxSer E c l Adin foWd wsDE=+   FH %<9stdole">st5ol= K^*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\System32\22.tlb#OLE AutomationEEOfficEOHN0R@cL,~ -c2EΙeA6q]H 81x&YG"1%ED%GгyW.ylYJ1\zA:LgrL+PKU8A>O,SEnw)H12@P'ܮE>OŝfnuJ7D2տ L_- ``FG̓;cA=ZFE\4O=+Ex(`S!J,̦`զ0gA +B=48R as=dimSub Excel+ VBAWin16~Win32MacVBA6# ChemxSeerExcelAddinforWindowsOstdole`OfficeuMSFormsC ThisWorkbook| _Evaluate Workbook_Open (CreateToolbar  Sheet1 Sheet2 Sheet3 (CheckColumnJLMsgBoxR vbOKCancelx? vbQuestionvbOK%(checkColumnWithMetaDataa (CheckSheetq(checkSheetWithMetaData(LastCellInColumnjRange xlUpws_wSht WorksheetflagAttrNamezactSheetsshtName}nfillRngcolNo Fcount0vindex sheetPresent*3NumRowsNumColsJ-usedRngmaxIntU currentColNo  mulSelect activeSheet%N SelectionZAreasK WorksheetsstrCols+' CollectionWi` checkFlagItemzColumniDone Addr excelRange( CallDetermineUsedRangeRowsUColumnsp9dataType%? attrRowNoD attrColNo>Z metaIndex(colSet]Activate|CellsValueKcolRngYcolIndex IsNumeric$*Interior; ColorIndexBordersC"Color2FxlColorIndexNoneBTrim@cbarx CommandBarcbctl CommandBarControlPcbtsub$ Application* CommandBars DeletexPosition msoBarTopyMenuBar߫ TemporaryVisibleControlsKmsoControlButtonnStylepmsoButtonCaptionCaptionxOnActionmsoControlPopupl) CrossLinkɪ(CrossLinkSheet (LinkSheet'e(DeleteCrossLink UserChoiceΕ (DeleteLink?Ops sourceRange sStartRowNo sEndRowNo  sStartColNo sEndColNoJ sourceSheetPl targetSheetStartInputBox promptmRow sheetSelectForm (GetOption setAttributeForm2& (CheckAddSheetO dStartRowNo dEndRowNo dStartColNoT dEndColNoQStr(GetSheet(CrossLinkCellsԎ (LinkCells targetRangeO.SecStart delColumnHeader(delColumnHeaders!TempFormR(NewLabelהLabelaNewOptionButton OptionButtonNewCommandButton1Z  CommandButtonkNewCommandButton2[  TextLocationNhXoTopPosMaxWidth WasVisibleP VBProjectOh VBComponents ' Properties+Designer"Height|Top5AutoSize!checkRngDefaultsSheetssCol[KssRowesColPesRoay  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{5AE40523-2458-4411-802C-2C2AFC98A9E8}#2.0#0#C:\DOCUME~1\JFERNA~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   BChemxSeer Excel Addin for WindowsFH ThisWorkbook1?4846bc7bThisWorkbookx Sheet11@4846bc7b Sheet1j Sheet21A4846bc7b Sheet20 Sheet31B4846bc7b! Sheet31HCheckColumn1C4846bc7b"CheckColumnq`:CreateToolbar1D4846bc7bCreateToolbarR=xCrossLink1E4846bc7bCrossLink0,&delColumnHeader02484d13d3delColumnHeaderS.DeleteLink1G4846bc7bDeleteLink2excelRange1H4846bc7btexcelRange+!} LockDocMetaData1I4846bc7bLockDocMetaData5 setAttributeForm1J4846bc7b setAttributeForm(qa' setColumnHeaders1K4846bc7b setColumnHeaders^ 1setDMetaData1L4846bc7bsetDMetaData8setMetaData1M4846bc7bsetMetaDataPsheetSelectForm03484d13d3sheetSelectForm h&showDocMetaDataForm04484d13e9&showDocMetaDataFormD[$*setProfileDescription1S4846bd23*setProfileDescription\~8P0`xh wޠsdCol\sdRow^edColedRow sAddtAddTag&comI CodeModule CountOfLines!\ InsertLines UserFormsKShowRemoveϱ VBComponent(GETDELETE_RET_VALKsRangecRangezjaTitle~dsheetZValue2AddressSheets Move>yAfterXtheRng[v( DetermineUsedRangeFirstRow3FirstColLastRowwLastCol64 HandleError;FindnWhatCSearchDirectionrxlNext SearchOrderxlByRows xlByColumns xlPrevious ( LockDocMetaData"( LockAttrMetaDatat( UnLockDocMetaData( UnLockAttrMetaData Cancel_ClickvbYesNovbYesa? Reset_Clickpg^PageN}clearEverythingFQTDTTb ListIndexQUTTKEXTOOITEQTLDFT\SSTtSBTTOT9METX setAttr_ClickcreateMetaDataurowNoUserForm_Initialize5cAddItem DropDownCheckAndLoadFromSheetN dataindex%( setColumnHeaders[ startRowNoKendRowNo/ startColNo4endColNo iSheet1vbCr$vbNo% setDMetaData h setMetaDataE showDocMetaDataFormGNumCells<(GETOPTION_RET_VALUOpArrayTTM_CR\DT\SB_DN\BC\CT\DA\DC\PB^VE_ Save_Clickz"ActiveWorkbookLoadFromMetadataSheetWorkbookk_Defaultj _B_str_MidX _B_var_TrimmT _B_var_SetmsoYModule1b(setProfileDescriptionJ _B_var_SubUserFormNMPGFQD]UTr_EX&]OI^setAttrCReset>CancelLabel1,Label2,Label3,Label4,Label5,Label6,Click InitializeN _B_var_Str MultiPage14?Label7,Label8,Label9,Label10@Label11ALabel12BSave UserForm1) OptionButton1k@ OptionButton2l@Label13CCommandButton1|CommandButton2}CommandButton1_ClickCommandButton2_Clickctl OptionButton3m@ OptionButton4n@ProfileDescrptionSheet(ProfileDescriptionLinkSheetRUser '   u  !! #  %"+0D$`@@` fih E2DF8D04C-5BFA-101@B-BDE5EA*AC42EProgram Files\CommonMicrosoft Shared\OFFICE11\MSO`.DLL#G& 11.0 Object Library%@MSFormsX>tFlm%i3@SD452EE1-E0D8F0A-8-02608C4DP0BB4SsSFM20L'B _&/;"1jIqAHq00}#0Bq# 50 A5AE40523-2458-4411-802C-2C2AFC98A9E86DOCUME~1\JFERNALOCALSTemp\VBEÀb7.exdc<!.E .`M ThisWorkbooPkG`T_iE5W"7kboPk2Q` H1Bp",""+BrSheet1G Seqt1 A}2  Tj 2 2 2) 2 `U 3 3 3 3 )1 `ckColumnG C*c:C;lunM2:-qR!; reateToolbarGr@LockDocMetaData.LockDocMetaData $Attribute MetaData @LockDocMetaData.LockAttrMetaData UnLock BLockDocMetaData.UnLockDocMetaData DLockDocMetaData.UnLockAttrMetaData delColumnHeaders CheckSheetLastCellInColumncheckColumnWithMetaDatacheckSheetWithMetaDataCrossLinkSheetDeleteCrossLink LinkSheetGetSheetCrossLinkCells LinkCellsLockAttrMetaDataUnLockDocMetaDataUnLockAttrMetaData Check Column? Sort SheetsVBE6.DLL S  MetaDataName Areas count 4Multiple Areas Not allowedFFFEXTgĤIx8<gĤIx8< 1 ColumnCallDetermineUsedRangeDetermineUsedRange FActivate Value SE: YES CL: RW: DT: NO Number SelectInteriorColorIndexBorders Color &Profile DescriptionFQT2ҋB `' Meta Data Tags Have Not Been Set. Please set them using SetAttribute Button RErrors Present. Please Check Cells in Red No Errors w  1    * Check Sheet?DTTUTT LsetDPDescription.setProfileDescriptionModule1 Cells LPlease Select An Initialized Attribute7)e[c'Hq 8 IkSH`ݿI۹ApDWmo9H*-`hO81Q{lFWJOCancel!-6S` &X"-?@Label1Label2Label3Label4Label5Label6ҋB `DFTSSTSBTTOTMETȏ[qJ eUserFormEstmNձǚ$ F3Dynamic ( (h{lFWJOMPGFQUTEXOIsetAttrReset Cancel_Click Reset_ClickclearEverything setAttr_ClickcreateMetaData CheckAddSheetUserForm_InitializeCheckAndLoadFromSheet   <Create a CrossLink to a Sheet? JPleaK*y       rU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8 r(xzBMeS!   a a 9  9 Q ia  Aaa  ha   1Yya 1a  (QAQya  a  a  !IA VIUIU) ) ChemxSeerExcelAddinforWindows ThisWorkbookSheet1Sheet2Sheet3 CheckColumn CreateToolbar CrossLinkdelColumnHeader DeleteLink excelRangeLockDocMetaDatasetAttributeFormsetColumnHeaders setDMetaData setMetaDatasheetSelectFormshowDocMetaDataFormF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA y  `F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel qp0FC:\WINDOWS\System32\stdole2.tlbstdole L-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice a.E .`M C:\WINDOWS\system32\FM20.DLLMSForms #ZX$D,,* 2C:\DOCUME~1\JFERNA~1\LOCALS~1\Temp\VBE\MSForms.exd aF KrF;B.Y̎DFWorkbook Workbook_Open @ FF F F <Chemistry Cyber-InfrastructureDT F F F Style "Document MetaData 0setDMetaData.setMetaData Column HeadersControlsTypeAdd Set BsetColumnHeaders.setColumnHeaders Delete @delColumnHeader.delColumnHeaders Attribute Lock .setMetaData.setMetaData Check Column .checkColumn.CheckColumn Sheet ,checkColumn.CheckSheet CrossLink To Cells 0CrossLink.CrossLinkCells To Sheet 0CrossLink.CrossLinkSheet 2CrossLinse select a single Attribute Cell Error String3ҋB ` FQ:ҋB ` UT: EX: OI: EQ: DF: SS: SB: TO: ME: ,Cancel!! Are You Sure?#=h8+3qG?,2qL /1/ /x DASTARTROW: Save_Click 0Select Source Data CellsRow DPlease Select a Valid Source Range Select a Sheet GetOption  False CROSSLINK:YES NUMBER: SSHEET: SASTARTCOL: SASTARTROW: SAENDCOL: SAENDROW: DSHEET: DASTARTCOL: DAENDCOL: DAENDROW: $Created CrossLink e HHiXL|?jBbU>+{DD8'Rs/MToOe¯] E:^HJ#t MultiPage1Label7Label8Label9Label10Label11Label12BCCTDADCPBVETTCRSBDNSaveg04{@%S y7 (LoadFromMetadataSheet "Document_MetaData TTT: CRT: DTT: SBT: DNT: BCT: CTT: DAT: DCT: PBT: VET: Column_Headers 2Select Column Header Rows TColumn Header for this sheet has been Set!   ,Press Yes to Overwrite Sheet: StartRow: StartColumn: EndRow: EndColumn: H Added Column Header for Sheet Name  User CancelVisible <Locked Document MetaData Sheet JDocument MetaData Sheet Doesnot Exist&@fn @Unlocked Document MetaData Sheet HDocument MetaData Sheet Doenot Exist "Delete CrossLinks`FbF WidthProperties .No CrossLinks Present.. *No CrossLinks Present forms.Label.1DesignerYl| Width CrossLink NumberLeft HeightTop Source Sheet Source Range Target Sheet Target Range Value2 (forms.OptionButton.1SҋB ` CrossLink: CҋB `Tag *forms.CommandButton.1ďYl| Cancel=in>pZGOCodeModuleCountOfLines 4Sub CommandButton1_Click()InsertLines 2 GETDELETE_RET_VAL=False  Unload Me End Sub 4Sub CommandButton2_Click()  Dim ctl 6 GETDELETE_RET_VAL = False : For Each ctl In Me.Controls?ȶJeI_" If ctl.Tag <> "" Then If ctl Then GETDELETE_RET_VAL = ctl.Tag  Next ctl Caption HeightShow! OĦ  UserForm1©| NlNK9y4$4n?|M8WMJ9?m,6O,t-RҋB ` OptionButton1 OptionButton2Label13CommandButton1CommandButton2 K (xCommandButton1_ClickCommandButton2_Click JCoE9{o &O,ngpF50gwV%AHv}Qs OK 2 GETOPTION_RET_VAL=False 6 GETOPTION_RET_VAL = False" If ctl.Tag <> "" Then If ctl Then GETOPTION_RET_VAL = ctl.TagV󎛀MB$Pa@v'OeUӘ#H9 OptionButton43HG4 T ( OptionButton3 XsetProfileDescriptionJaA5ǧ3I]A*K)[1 VsetProfileDescription.setProfileDescriptionProfileDescriptionLinkSheet &Profile_Description Done      !ChemxSeer Excel Addin for Windows )  )theRng &i&( &)'8 &'H &X (Y(h &A)xShtNameOpArrayDefaultTitle 7Y( & O PY(      !"$%&')B*?,-./092345678+:;<=>@A\_DEFGHQJKLMNOPCRSTUVWXYZ[gcabedhfjiklmnoprvxwyz{|}vu~  >?" !#$%&'()*+,-./0123456789:;<=VQABCDEFHIJKLMNOP@RSTUpXYZ[\]i_`abcdefghWjklmnoqstu`xyz{|}~o/Bi013pFz?a@f@ffo25t2Sheet2Sheet3Sheet3CheckColumnCheckColumnCreateToolbarCreateToolbarCrossLinkCrossLinkdelColumnHeaderdelColumnHeaderDeleteLinkDeleteLinkexcelRangeexcelRangeLockDocMetaDataLockDocMetaDatasetAttributeFormsetAttributeFormsetColumnHeaderssetColumnHeaderssetDMetaDatasetDMetaDatasetMetaDatasetMetaDatasheetSelectFormsheetSelectFormshowDocMetaDataFormshowDocMetaDataFormsetProfileDescriptionsetProfileDescriptionID="{406C0E2C-3A9F-47A8-9756-9D03AF6F2E09}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=CheckColumn Module=CreateToolbar Module=CrossLink Module=delColumnHeader Module=DeleteLink Module=excelRange Module=LockDocMetaData BaseClass=setAttributeForm Module=setColumnHeaders Module=setDMetaData Module=setMetaData Module=sheetSelectForm BaseClass=showDocMetaDataForm Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=setProfileDescription HelpFile="" Name="ChemxSeerExcelAddinforWindows" HelpContextID="0" Description="ChemxSeer Excel Addin for Windows" VersionCompatible32="393222000" CMG="94967CA68C7A907A907A907A90" DPB="6C6E848E846785678567" GC="4446ACF65CCF5DCF5D30" [Host Extender Info] &H00000001={3832D640-CF90-11CF-i038@i*WJO@f@fi0446=i*WJO@f@fi067:i*WJO@f@fCompObjsx<fo9;lCompObjn8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, 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=0, 0, 0, 0, C 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, 22, 29, 964, 564, C setColumnHeaders=88, 116, 874, 638, setDMetaData=0, 0, 0, 0, C setMetaData=0, 0, 0, 0, C sheetSelectForm=0, 0, 0, 0, C showDocMetaDataForm=0, 0, 0, 0, C, 44, 58, 986, 593, C setProfileDescription=66, 87, 852, 609, Z @|Oh+'0@H\  Geovista Juan Pablo Fernndez RamrezMicrosoft Excel@O{mDv@fRIe՜.+,0 PXd lt| TY(+(H  &@2} E,R KQDBArial #9MPG{  pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19q1H   >kBasic InformationAdvanced InformationOther Informationionfo<> CompObjnfo?ACompObjnCompObj1CaVBFrame:Tab3Tab4Tab51Tahomab5(H  &5}>k ¯NCh0 #PG15, !PG25, !PG35,  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q (Other Comments {1TahomafsH,1Tahomafs$H &}m> T($2<Label6O &0MET]{  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q (Different From {1Tahomaes( Subset of Fr {1Tahomaes( Super Set To {1Tahomaes ( Equivalent Tom {1Tahomaes(Type Ofs {1TahomafsH,11TahomafsH,1O1TahomafsH,1O1TahomafsH,1N1TahomafsH,1O1Tahomafs$H %}m>  (2<Label1fsqE(28Label2fsq(28Label3fsqh (2<Label4fsqO(24Label5fsq 0EQTO  0SST !0SBT "0TOT %0 DFTq  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q$(Fully Qualified Name {1Tahomab5( Data Typei {1Tahomab5(Unitsab5 {1Tahomab5(Examples {1Tahomaes$(Other Informations {1TahomaesH,11TahomaesH,1O1TahomaesH,1O1TahomaesH,1N1TahomaesAH,1N1Tahomaes$H }m>  $2@FQq#$28DTqE$ 24UTqh $ 24EXq$ 2@OIq  0FQTO 0UTT 0EXT 0OIT 4 DTTq  (Save Attribute; OqTahoma(Reseta: OqTahoma(Cancel OqTahoma$<setAttr 5%$4Resettr5%$4Cancelr+*5% foHKi03MRi*WJOffi04JLOi*WJOffCompObjsx0f$oNPl%Root Entry F',!9Sf@WorkbookZ$ _VBA_PROJECT_CUR"X.RIe gVBARIe@fDBArial( #9MultiPage1e  pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19q1<e7#Document Meta InformationBibliographic ReferencesTab3Tab41Tahomab4(H  #-}e7# ¯NChCompObjnfoQSCompObjn0h #PG15, !PG25,  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(Citation; {1Tahomaon(Authorsn; {1Tahomasn ( Accepted Date; {1Tahomasn (Copyright Date      !#$&')+,-.0123456789:<=>?@ABCDEFGHIJKLMNOPQSTUWXYZ\; {1Tahomasn( Publisher Da; {1Tahomasn(Venueasn; {1TahomasnH,!1TahomasnH,!1TahomasnH,1TahomasnH,O1TahomasnH,!O1TahomasnH,!1Tahomasn$H }6,! ( 24Label7sn{( 24Label8sn ( 2<Label9sn(2<Label10n1(28Label11nS(24Label12nu 0BC 0CT 0DA; 0 DC] 0 PB 0 VE  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(Titleab4{1Tahomab4(Creator4{1Tahomar4(Date{1Tahomar4(Subject4{1Tahomat4( Description{1Tahomat4H,!O1Tahomat4H,!O1Tahomat4H,N1Tahomat4H,!1Tahomat4H,!41Tahomat4$H #}6,! (24Label1t4{O(24Label2t4{ (20Label3t4{( 24Label5t4{( 28Label6t4{u 0TT{ 0CRE 0DT 0SB 0 DN ( Save MetaDataOqTahoma(ResetaOqTahoma(CancelOqTahoma <Save&$!4Reseta'&$"4Cancel(& SummaryInformation(YRDocumentSummaryInformation8VCompObj[mpsu Sheet1Sheet2Sheet3  Worksheets F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q