ࡱ> ~ )*!"#$%&'(,?./0123456789:;<=>+@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwyz{|}Root Entry FI^ 5Workbook`'_VBA_PROJECT_CUR"`.4 5VBA <04S4 `\pYahoo! Ba= ThisWorkbook=hx-e"8X@"1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial"$"#,##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\);_(* "-"??_);_(@_)"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)                + ) , *   H  ` Sheet1"ZR3 A@@  ![San Francisco, CAAddress City, StateZip749 27th AvenueLatitude Longitude701 First Avenue Sunnyvale, CA159 Joost AvenueTitle Description The Old Place The Mailbox The New PlaceYellow House, 27th AvenueMailbox Store, Judah StreetBoss Pad on Joost Avenue Marine WorldThar be fish here.Magic MountainClose to the office Great America The Office Cool House Yellow House Purple Office ExtraDataBest coaster park in CA27th Avenue & Fulton Street Y! Canada HQ106 Front Street, E, Suite 200 Toronto, ONM5A 1E1CountryCanadaDalhousie University6050 University AvenueHalifax, Nova ScotiaB3H 1W5All Chiefs Memorial Arena1 Birch Waswanipi, QCJ0Y3C0Colise de Qubec2205 avenue du Colise Qubec, QC6455 Quinpool Rd Halifax,NS Halifax, NSB3L 1B12649 Gottagen StB3K 3C0 6020 Young StB3K 2A2 50 Market StSouth Portland,ME04106USA132 Riverside St Portland,ME04103 150 Main St Westbrook,ME04092 Tim Horton'sAlbertaEdmonton, AlbertaBritish ColumbiaManitoba New BrunswickNewfoundland and LabradorNorthwest Territories Nova ScotiaNunavutIqaluit, Nunavut#Charlottetown, Prince Edward IslandQubec City, QuebecRegina, SaskatchewanWhitehorse, YukonVictoria, British ColumbiaWinnipeg, ManitobaFredericton, New BrunswickSt. John's, Newfoundland"Yellowknife, Northwest TerritoriesOntarioPrince Edward IslandQuebec SaskatchewanYukonToronto, OntariobI z:{ >  F V   B8 cc  D?!  dMbP?_*+%M\\Fps-a1\sabroso?dXXLetter.HP LaserJet 4050 Series PCL 62xe.DA>320Dq`,x; AN̆,Y0OZ|%#DB-^ EEaG/h ml8rJKE9gzoqϣh?,)Go3؋ػBDZYldWtk\6,8#ܧN&N%>IdN~fuVۿVJ^eT:oD䛔CSlD1QFߕ9"dXX??U} } } m}  }  } I } $ } } } } $ } } D             !#$%&()*+,./0        ~ @4d?@ABC 1A 15 10 16 1# 2A 27 28 29 2: 3A 3; 3< 3= 3: 4A 4> 4? 4@ 4: 6 6 6" 7B 7C 7# 8D 8P 8# 9E 9Q 9# :F :R :# ;G ;S ;# <H <T <# =I =& =# >J >K ># ?U ?Z ?# @V @L @# AW AM A# BX BN B# CY CO C#(TFFFF*************(    T0.0e0e g "`v<x]`0. @<Yahoo! MapMaker for Excel version 1.02 To use this spreadsheet: 1) Enter a list of address, city/state, and zip, or a column of zip codes, or a list of latitude/longitude pairs in the spreadsheet. Optionally, provide columns for title, description, and country (US and Canada are supported). Each column must be labeled appropriately so we know what kind of data you've entered. It doesn't matter which order the columns appear in and it's OK if other data appears in the range (it'll be ignored). 2) Click anywhere within the data. 3) Choose the menu command Tools, Display on Yahoo! Map. 4) Your Web browser will open with the data displayed. Click on the Send To Yahoo! Maps button in the browser to display your data. Use any of the data groups below to test. You can get more help with Yahoo! Maps by joining the Y! Maps developer group at http://groups.yahoo.com/group/yws-maps/ (It's OK to delete this note if you don't need it.)<@&q s w>@<d7 Sheet1 ThisWorkbook  __SRP_2__SRP_3 Sheet1  !"#$%&'()*+,-/01356789:;<=>@ABCDEFHIJLMNOPQRSTUVXYZ[\]_abcdefghjkln VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 ' code makes the pretty menus appear. P04 Sub _Open() AddM!Itemools", "DisPy on Yahoo! MaBp Show.DŽ KEnd19l 6+(JAs Sng, i8 macro b@Seperator @B)Hean/'t@ `removBA if@ isA/F;;R ;it~i7&G$0AFCaddTV, to\specifi@owsheet Dim mTAWith Bars(xlAb ).AsFH5@ sepa>bar aY+"CA If IThen& B s.; Cap;:="-  Eg, On|AcFgCA|5 ~YK:ag/#F+, IAIntegerb,@]L,On Err KGoTo eATrap !$F@Each9 I + II + 1'check f&7; de le`UfoundfC .$6 19 eng8(I).DB fJbfH(I - 1)@IB _  Cexit loop aslhbeX#{K$ EA3*!QIfFNextcU@S"@ =:' t? ne@@d in c!runaExcel8 97Gs au@aticall6y ,v@ingA`gen |anNG!bhkXXi rU 01  9  a 1 Y i#4 a1` Wt80+nCppCttCxxT2xtp8$ xtpL ll Xk F%X%h$ h844a$O )h468$0:X %a8Q hh h58cdpHuψFO\4JKw[$NxO\4JKw[$N>cdpHuψME0SLSS>"L*<4<8<<<N0{00020819-0000-0000-C000-000000000046}0 @`pnk\ `kTi $ig$i $i" $@&l 709Z $`hkXXi x*Hia^@&l `6jҿU%@8 %h %(p@@x @Xt @p @n @X8(X$*(^'P@h ow t@pX te@H 005:@8 ng t@4 @$ tuat@ City@ @ be @ P`ews (%8Xx h80*(2Sorr I@d ata @PT 5Pl@D col@4 itud@0 City@ e va@ @ @@ (@ a r@(`ns X(%X@h @ H@_ hms. St@ rowh p@@@`TCD$*\Rffff*0544e60e51*\R1*#43*\R1*#2ac*\R1*#e8*\R1*#1dc*\R1*#1dd*\R1*#1de*\R1*#1df*\R1*#1e04- 0 "0@08x "  , <k &(8P<p "  k   * H9X *h@ (   ( N0 6) This code makes the pretty menus appear.ToolsDisplay on Yahoo! MapShowMap.ShowMapA@o@&this removes item if it is on the menu  A@$5this adds a menu item to the specified worksheet menu]  *$(%,add separator bar and menu item "G-25.B@0j 2 45.B@0qho`this removes a menu item]  *$(%,8 &5. 6 '6 $check for menu item; delete if found &!2  67.B@:$check for separator; delete if found  6 7.!2-G 6 7.B@:j"exit loop as item has been removedykq|8Gerror trap needed in case run in Excel 97 as separator is automatically/removed, and checking for it generates an error|@o80ȳAttribute__SRP_8.__SRP_92BShowMap-0__SRP_4`rU @nrU $`,`)= ,`)= ,`)= (!0$*\Rffff*0:44e60ebf6 D H h > B 6 :H  &  B <  $`  > <  <0 :p < @ >0 Bp D   J  Hp H F @H B > D DX @ D F( p B : . 2@ x        "   0 :  > >P = % % % %( %H %` %x %  6  "+$wO[xMEH @8j   > LLLPLPL `H k..6`Px/ t+b` kX((d)h xhoo.%`lt C npahoo%`p nserv`rh(+^` k(++)h Hmitt%`lt f npare %`pndist`hcode`dve+``k==)h 0er.%`lt bin nphuce %`pnrigh`hof c`d5 `8`disc H`T+ iion.`he na+`k fx`hLkiP  spe x%`t p8 IS % lXLDER %`PB "+`8k0IP ED W`ltTABI+\`k0G) PX: C%iABLE p; I%`pn, EX+t `(Dk V`ltREME+H `8t+ g+ `(hk k+~ `0lk vvoi > (`lt OR @(@B@F(@Lx @PxH(H(xPx>x  H @ t !T@ p 8 F@0 ` you @ P ate/@` @ Zip @ 0 orte@X n@ re oLN^`bdf!%@ tude@  @ @ 'X (  X `bxuse it's p @tRHJ|~LRT@@ X @ T ddre@ D = N@ B nged X wing t@@ suppor@< ou h@ , ddre@ use@ tion@  see@8  thin@P  @h  !T@   try Z0Ph(x00hH`^x colX0tude,  tR@BJ|~Le'@T labe@P P@`@ A@f@>  es a r@< ns X p code@8 @H(  H@ @ at 2@ @ !v@ T%@ !@ "Pp8``xPtRDFHJ~|@ P @L @< @`: x8@8 `@4 @$ @ @ @r @ @0 @H @` @x @ LN@ `4p0p@l p@d @T `x@h @8X @ H @P8 @( @ `@  P8@hh @d @T @L  p X8`xH |@p @l @h @X @H @8 xX P`\z t%h@8\ @X @H @xF P@D x@4 @$ @ @ @ x `tx|@0p @Hl @`h @xd @` @\ @X @T @P @L @ H @D `x@t `x@h  `~x@8p @l x  CD*\R1*#1c8$*\Rffff*0844e60ebf*\R4*#16*\R4*#19*\R4*#1d*\R1*#2ac*\R1*#e8*\R1*#d7*\R0*#14*\R0*#e*\R0*#12*\R0*#f*\R4*#7*\R4*#c*\R4*#c*\R4*#10*\R4*#1=  &( DP D * 2 H  =` x   =   4      B  :  (08  @ P  *`5C?   0 >* ` Jqh   6 D*P JhX8*    ( H P B X >`      *5C8?P?h   0 N< Jqh  p 6 T< Jhh4*p6*     @ H B P <X      *5C8?P?h=   0 JG( Jq0   6 < 0 p@ Jh  $F48J4    848  $@ h Tx @*      @ H B PX ` h               0 @  H P BX 4`4E "  @ (HPX` h*! B 8 0H `  p(2   B   t  > \ .*0!`!<Fp!b !L "p" "J""*!# @# H# B  P# NX# P# P#H$P$ (X$5$E$  $$$ $$ B$% bs%:Ap%`J%nJ&<&B&J'.X'61' ' ' B''( B((( B ( 4( 2) 4P) 8) 6) 4)0* "8*"X*"p*4*"* ** :* + (+ 0+ P+ 4X+ 4+ + F+ 0, 2H, (, , B, - <(- h- @- - - - . . D . Dh. ". . . /  / &@/ (h/ "/ / / ./ H0 NP0 V0 <0 F81 1 .1 81 L1 N@2 H2 P2 V(3 Z3 `3 N@4 ,4 4 4 4 (4 5 5 @5 H5 D`5 D5 "5 6  6 @6 `6 "6 $6 6 6 B6 H87 N7 V7 <(8 Fh8 8 .8 88 H 9 Hh9 l9 r : J: N: ,8; h; x; ; (; ; ; ; ;<= ************************************************************ Yahoo! MapMaker for Excel -------------------------7 Written by: Jeffrey McManus (jeffreymcmanus@yahoo.com); Converts location information in an Excel spreadsheet into/ the GeoRSS format used by the Yahoo! Maps API.nu3 More information: http://developer.yahoo.net/maps/.B@0 Copyright (c) 2005, Yahoo! Inc.ov All rights reserved.; Redistribution and use in source and binary forms, with or6 without modification, are permitted provided that the following conditions are met:8 * Redistributions of source code must retain the above5 copyright notice, this list of conditions and the following disclaimer.5 * Redistributions in binary form must reproduce the3 above copyright notice, this list of conditions5 and the following disclaimer in the documentation: and/or other materials provided with the distribution.8 * Neither the name of Yahoo! Inc. nor the names of its; contributors may be used to endorse or promote products= derived from this software without specific prior written permission.D THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORSB "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOTB LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS? FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE: COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,; INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL7 DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF= SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;> OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF: LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT> (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF@ THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.< ***********************************************************4 References Microsoft Scripting Library (scrrun.dll)' Variables used by ShowMap to determine+ which data fields (columns) we were given.]@]@(]@]@P]@(]@P]@x]@x]) Selects current region if user forgot to R!T!VB@H8 Figure out what data you have (Address/CityState/Zip or7 just Zip or Lat/Long are supported; Title, Description and Country are optional) R!T%Z.X XLatitude$\'@ X Longitude$\'B XAddress$\'D X City, State$\'F XZip$\'H XTitle$\'J X Description$\'L XCountry$\'N0 If you have lat/long use that since it's faster @ B R!T$^'Pd OK, now try Address + CityState= NEW 26. Oct 2005: Changed the following to an "Or" condition= to support situations where you have CityState *or* Address.$ (This used to be an And condition.), We'll see if this screws something else up. D F R!T$`'Pd Now try ZIP H R!T$b'Pd8 Strike three, you're out2Sorry, I have no idea what data you're giving me. 5Please label your data columns (Latitude, Longitude, 1Address, 'City, State', and Zip are valid labels)A@dkPkHk@ PA@fo(3 Takes a range of cells; returns XML with zip codes]]]] Header$t'l# Items. Start at 2 (skip first row) p h!Z!v p R!T%Z.n H n%x!z'r J * User gave us no title column; make one up lZIP Code � �r��� |'ld l �� �J �n%�x�!�z$�~���� |'lk@ L 0 User gave us no description column; make one up lZIP Code  r |'ld l  L n%x!z$~'lkP l  r  |'l l |'l p Footer l'l l'bi 8 Takes a range of cells; returns XML with lat/long codes]P]h]]] Header$t'l# Items. Start at 2 (skip first row) p h!Z!v p R!T%Z.n @ n%x!z' B n%x!z' J * User gave us no title column; make one up lLat: � ���� Long: �� ���� |'ld l �� �J �n%�x�!�z$�~���� |'lk L 0 User gave us no description column; make one up lLat:   Long:   |'ld l  L n%x!z$~'lk l    |'l l    |'l l |'l p Footer l'l l'^i 6 Takes a range of cells; returns XML with address data]8]P]p]]] Header$t'l# Items. Start at 2 (skip first row) p h!Z!v p R!T%Z.n D n%x!z' F n%x!z' H n%x!z'r J * User gave us no title column; make one up l �� ���, � ��$�~���� |'ld l �� �J �n%�x�!�z$�~���� |'lkx L 0 User gave us no description column; make one up 5 TODO: Maybe instead of repeating description, either * leave it out or use Title if you have it? j txt = txt & "" & CData(CurrentAddress & ", " & CurrentCityState) & "" & vbCrLfdH l  L n%x!z$~'lk Insert Address and CityState l $~ |'l l $~ |'l Insert Zip if you have it H l  r  |'lk Insert Country if you have it N N n%x!z$' l  |'lk  l |'l p Footer l'l l'`i]0 United States of AmericaKTus' United StatesKTus'USAKTus'USKTus'CanadaKTca'CAKTca'n 'iH- Formats the date in a manner that RSS likes.$ddd, d mmm yyyy h:m:ss$ GMT'i(: Creates a temporary HTML file with embedded XML and opens it in a default browser.]]] ]@ !.html' %.. 2 = temp folder< TODO: This next line creates an ASCII file, for some reason2 this doesn't work if it's a Unicode file. *shrug*  %. P$ B@ B@B Send map data to browser]`file:/// !  %'  B@|( ox Generates the HTML page.]f |'l l*Yahoo! MapMaker |'l lH |'l l | |'l l$'l l1 |'l lS

Below is the formatted data from your spreadsheet to be sent to Yahoo! Maps.

'l l7 |'l l5 |'l l |'l l |'l l'iG Examines the header row of the selection and returns the column numberI of the requested field. Expects to be passed a Range object comprised ofI the header row only. Return value of zero means the field was not found.]x]" For Each CurrentCell In CellRange p !!v p %x!z  p'\Fzk'\ pi`] |'l l  |'l l'Yahoo! MapMaker |'l l-http://developer.yahoo.net/maps/ |'l l5Your data on a Yahoo! map. |'l len-us |'l l $  |'l l'ti&IWeb Services by Yahoo!'iH"$'i. This would have wrapped characters in a CDATA, tag, but that won't work here because we're. embedding the XML in an HTML document and the1 CDATA tag will be eaten. Instead we must replace0 ampersands and other characters. (Escaping also- won't work, for some reason, unfortunately.)] &and$'l l>$'l l<$'l l$$'l l'$'l l'~i3 ***** Obsolete functions. Do not use *************Public Sub ShowMapOld() Dim XMLData As String. ' Selects current region if user forgot to. Application.Selection.CurrentRegion.Select@ ' 1. Figure out what data you have (Address/CityState/Zip or* ' Zip or Lat/Long should be supported)+ Set row = Application.Selection.Rows(1)" Select Case row.Cells(1).Value Case "Address"< XMLData = AddressCSZToXML(Application.Selection) Case "Zip"5 XMLData = ZipToXML(Application.Selection) Case "Latitude"9 XMLData = LatLongToXML(Application.Selection) End Select CreateTempFile XMLDataEnd Sub>Private Function AddressCSZToXML(DataRange As Range) As String= ' Takes a range of cells; returns XML with lat/long codes ' enclosed in XML tags. Dim txt As String Dim DataRow As Range Dim x As Integer Dim CurrentAddress As String" Dim CurrentCityState As String Dim CurrentZip As String ' Header( txt = "" & vbCrLfB txt = txt & "Yahoo! MapMaker" & vbCrLfH txt = txt & "http://developer.yahoo.net/maps/" & vbCrLfP txt = txt & "Your data on a Yahoo! map." & vbCrLf5 txt = txt & "en-us" & vbCrLf? txt = txt & "" & GetDate() & "" & vbCrLf( ' Items. Start at 2 (skip first row)1 For x = 2 To Application.Selection.Rows.CountE CurrentAddress = Application.Selection.Rows(x).Cells(1).ValueG CurrentCityState = Application.Selection.Rows(x).Cells(2).ValueA CurrentZip = Application.Selection.Rows(x).Cells(3).ValueJ txt = txt & "" & CurrentAddress & "" & vbCrLfP txt = txt & "" & CurrentAddress & "" & vbCrLfT txt = txt & "" & CurrentAddress & "" & vbCrLfZ txt = txt & "" & CurrentCityState & "" & vbCrLfH txt = txt & "" & CurrentZip & "" & vbCrLf& txt = txt & "" & vbCrLf Next x ' Footer" txt = txt & "" AddressCSZToXML = txt End Function>Private Function LatLongToXMLOld(DataRange As Range) As String= ' Takes a range of cells; returns XML with lat/long codes ' enclosed in XML tags. Dim txt As String Dim DataRow As Range Dim x As Integer Dim CurrentLat As String Dim CurrentLong As String ' Header< txt = "" & vbCrLfB txt = txt & "Yahoo! MapMaker" & vbCrLfH txt = txt & "http://developer.yahoo.net/maps/" & vbCrLfP txt = txt & "Your data on a Yahoo! map." & vbCrLf5 txt = txt & "en-us" & vbCrLf? txt = txt & "" & GetDate() & "" & vbCrLf( ' Items. Start at 2 (skip first row)1 For x = 2 To Application.Selection.Rows.CountA CurrentLat = Application.Selection.Rows(x).Cells(1).ValueB CurrentLong = Application.Selection.Rows(x).Cells(2).Valuee txt = txt & "Lat: " & CurrentLat & " Long: " & CurrentLong & "" & vbCrLfk txt = txt & "Lat: " & CurrentLat & " Long: " & CurrentLong & "" & vbCrLfD txt = txt & "" & CurrentLat & "" & vbCrLfG txt = txt & "" & CurrentLong & "" & vbCrLf& txt = txt & "" & vbCrLf Next x ' Footer" txt = txt & "" LatLongToXML = txt End Function l
 |'l@Attribute VB_Name = "ShowMap" ' *8~Yahoo! Maker for Exhcel8-Written by: Jeffrey McMan us (jmcm@ye.com)9Converts location inw"m an spreadshe$ettothe GeoRSSV usedC gs APIB.More 1: http://developer.Pnet/m0aps/Copyright (c) 2005D, 0Inc-All s re@served R0edispandSB sour ceqYinarycs, wit0h or<out modifiI, a1+m]d provida@>that>following@ condiWsa met: * K's of%code musBt3tainUabove Dnotice,@ir@;W$R CAeD-ONCO 0 A(ERThen73&%8=+To (&&"ElsP1' OK,)w `@ t + &'fW 2@6. Oct:@ ChangRePWan "Or>"੄y5 s B?s wh_ *or* pY (Th2_ kPQcտ.4We'sefĠ crewsпmeth1fe upXT!"OrF{Nx  N@DZIPw 4!2OOqp]^dkereϰ.'W MsgBox "Sorry, I3Yno ~a0Z1w1me. " & _  "Please label your data columns (Latitude, Long" & _ Address, 'City, State', and Zip are validvs)" KE'If  %CrebTempFile XML&D 3Sub Priv FunctHionGTo(Range As )String$' Takes a rof cells; retur$ with zscodesADim txt + >ow = x Integer CurrentW R' Head:= G etRSS() E Items.Ajrt at 2 (sk0fir@st row F@or x =To L.Rows.CountA;SetC5= A pplicon`.SeleB_ (.x 5=E.CY(:Col).`ValueGIf Title@ @(0 ThenGA' User gave us 8no C; mw onp PA& "<>ZIP Cz H/ /AAvbCrLl~s0&BZèo.wD;D)"<jG 'Descripab'' \d( `#H( )o)Cp)+*&- 8ymaps:`V>7uCC+ /M Ne(x' FootK~! channel>`"`fcc!Ÿlat/l J`/%;al:?duA) `8!!`na V0}?0~@Q0'YYY\` E$ !.Y0 :YaRŒo 2O[uEO[@8=R?F(O[eO[߶]FO[Oo OoMuoAe>tQqB/M?QA\s(\q\t8pgeo: I\d$"0vbCrLf  End I<2If Description = 0 Th enF' User gave us no d6 column; make on"p >TODO: Maybe instead of repeating O, either Cle~it ourDe  if yPou h? t|xtk\CData(CurrentAddress, CityStat "lse C!BDRow. Wz' Inpt E8aF5G)ymaps: VK ME   G2FR,@ +Ì"ZToXMLÃ!5Funca Publ8ic E *Name As Str) DimatvalSelect Caxse hCa!""Un d sAmerica re = "us: SAmCanadp;/c?d`Ac*a, _Bt`ke()=S@rmats @ fd8 a`Rrat RSS likes.f Foa(Now()ddd, d mmm y h:m:ss"aQ GMT rivASub CrveTempFile(p/`a p+On Erro@r GoToHpbl5 'Ds !9poraJHT% 4f0 w{ embedded 5qfopens |indefault browGi3fsoA NHew SymObj3CAe 7old`9FqT E;eamS= 0 .0"Q& ".html.Set Special(2) 'L 2 fH 'b #ThiANlic"n ASCII Q,0r so0Gso Ě'$doesn't work1dit'Dcode. *shprug* =x .#xt#@, True,x Fa#q2.WrpKp!&MCloEs' S"ePmap2a <@Yahoo! M=ro9 5Belxow I9!K`ptPa@pa fro@loupLp@Ldshe T?e s?." & vbCr Lf txt = (& "Phtml>"MapHTMLr0End Function Private& GetFieldColumnNumber(ByVal CellRange As , +NamString)Integer ' Examines the header row oBfsele areturncA nA$requested fT.0p!o be pass aQ obj compr*i o'Fnly. R> valueOzero0 meaH7 was not f ound.Dim Currenntx' For Eacrh In xq1 To.ChbsuntC Ifls(x).o4=kThe@OA ~x:XitIĨ0C Nex RSSHB(BZ=?xml v(ers=Qu"o1.0H e0ncodUTF-8 ? сrssQ2KD'(ns:geohttp://www.w3.org/2003/01//wgs84_pos#a ymapBs api.A.@yahoo.d/s/V1/An \`d.xsdH|"channel>Ya ! Ma`ker!developernet//Your data on a $` .epn-uspubD*'`ea[H/II9#N&b rGi WebServicesByOjo "< /aΓubli:c /(= Chr(34)2lC@?a(str£' This would have wra ppm5ract M iA,CDATA#pmag, b$utnatn'IQrkwreqcause're%embedaP0e X an ҃docum`my|CEB tagl lqwe-n. Inyad we must repHlacam`W1 (<R#?7'9_ #?** @Obsolef$s. DoҊQ'BEџ'P)Su@b ShowZOld('A`Q!**'4Xs cӏg0w if rgt'QApp4RaX.S.RNetI1.gu,o-wh-2\you1(Address/CitySt /ZipL op' @Lat/Lo%s ho5supp#eda1 SeP+ow .Ro0ws(1 Ca`5`.#ta" 1 5= CSZToP(?0s ?Lr=Pitudea_^*CC;teTempxFil"G ub)a+zT"gTPF r`zrc=a;*`PLth l!l!co'alopQPOs92?13 $4 a0OƵ.OGq/5 '  qɬ' }2 Q[O 9o8o! I/<title>" ,& y/vb0CrLfm &descrip&)ymaps:*O Fd i?K "ilEN/gf Neqxab' Foot erKe/channel>" UCSZToXMLEnd Fun B Priva LatLongBOld(DataRange As )AStringA' Takes a rB of cA; returns !with@ lat/l coenclosed in `tags.Dim @ ,owHxIntegf(!a    ' HHead2"<`0 Pvers=;Quon"2.0"GJ>k:F:csYahoo! MapM+rhttp://developer.ya .net/Ao/en-us\pub =HGeta()!,:X?NHHh8 @8:(A`1x6hH8dL(xhH8 Khx$B <ClhD*1t/h!dx$B XCld=Epd dltp lEld=Fldl MT@ G#hl 8F/h l LF2hp EHLltlhx$B ClL*1P2hL P I08 PltxphLdP J*1tltK*#p*1t/pltL*#p*1t/p*ltM*#p*#lN*#h*1t2plhlt O#p*1t/pltP*#p*1t/pltQ*#p*1t/p ltR*1tltS*#p*1t/pltFX H8`1t58ltT*#p*1t/pltU*#p*1t/pltV*#p*1t/p!ltW*#p*#lX*1t2plltCxDP,xtplh8 l t5nta\XXaHv"X6\HcDEknD4%ta\XXHAF]3X6\Hknpzpz ndD> ,pt X\HHsY Z#p*#l[*#h Z#d*#`\*#\ Z#X*#T]*#P Z#L*#H^*#D*1t2plhd`\XTPLHDAlt_*#p Z#l*#h`*#d Z#`*#\a*1t2 plhd`\Jltb*#p Z#l*#hc*#d Z#`*#\a*#X*1t2plhd`\XJltd*#p Z#l*#he*#d Z#`*#\f*#X*1t2plhd`\Xltg*#p*1t/plth*#p*1t/plti*#p*1t/pltj*#p*1t/p1ltk*#p l#l*#hm*#d*1t2plhdltCx8,xt< plhd`\XTPLHDTno*#tp*1x/t(xtX "h qh`1x5h (xh "rs t1t"uflt t1t"uvlt t1t4 Z1lu>l#plt t1t2pl"uwlt t1tltCx,xtpl    /xrU~|  x 9  i  QA q9Y aQYiY IQ! Y)I y!Iq !y"# $9$& (i)Y**++''9+ ,I,q,,,,-Q- .Q.1/I/ 00192Iq22 4A5a666Q7 7!797@:p t$ t pWP)tp5P=(@%p t$ t p` N)tp%C [t /t% C [t /t% C [t /t% C [t /t% C [t /t%C [t  /t%C [t  /t%C [t /t˓=p t$ t lp= 1x)tp˓O=p t$ t lp= 1x)tp =p t$ t lp= 1x)tp4'''P*#*F` /6`P x ,x ,tp`P| 1t5nH aXTTaDv"T6XDc@bCn@< T$ T stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB# Automation`E OfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosof_VBA_PROJECTbdirK__SRP_0__SRP_1WfMaskY6hwnd/lpVerb+lpFile lpParametersZ lpDirectoryenShowhInstApplpIDList8lpClass2 hkeyClassldwHotKey7hIconMhProcess>URLRunProg FileNamej OwnerhWnd/ri vbNullCharYWorkbookk_Defaultj Worksheet _B_var_row_B_var_CurrentZipb _B_var_Format _B_var_Chr\;x =? H Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\System32\scrrun.dll#Microsoft Scripting Runtimet Shared\OFFICE11\MSO.DLL#M 11.0 Ob LibraryK Scriptin0g>_ripinjgt je4 20B28UE718-11CF-893D20C9054228}# USUscrrun.dllH* RuntimeO|ThisWorkbook(G T~isWrkbo 2 HB1`B,Q!"B+BSheet1GS@#et14H2N)ShowMapGowMam2ODwO[! E9 @OpenBrowserG, eDB*r@.w@0e M2  @enBrowserU~~~y ted States USA US Canada ,ddd, d mmm yyyy h:m:ss  GMT " @  `C @B( *KzK6\У  .htmlǣغS=B( file:/// <<, (ShellExecuteEx shell32.dll ShellExecuteEx Iq5 <!DOCT>r" O$ShellExecuteExxRR<<ME (H> <H+0p@ )` A%˜B%Lhhhh( h@hXhphh h$$%h((servh,,(h00h44h88 `xkpi  `ki i @(@%`<˜p B˜h@Bhp0Hp@x 0Pp8h`A%P %@ Hh CD$*\Rffff*0:44e60ebf(*\Rffff*0:44e60ebf\0*\R0*#e1H     (8@HPX`hpx "  "    0 H `           ,(8] Hsett]@p\des]hpmak^^^^^(^@^X^p^^^^^^^p@0 A@o ]]0 Set the structure's size 9 Set the mask   9Set the owner window 9Show the properties.lpVerb = "properties"Set the filename 9 9 9999q $'oŲAttribute VB_Name = "OpenBrowser" PrivaDeclare Function ShellExec|Ex L ib "s&32.dll" (SEI As SHELLEXECUTEINFO)(Long Const SEE_MASK_INVOKEIDLIST&HC"NOCLOSEP@ROCESS$40%FLAG_NpO_UI!"Type cbSizeP fMask hwndlpVer:b SmlpFil' Par!tersDirectory nShow /DhIApp l:pilpClas8hkeyG dwHotKe!GhIc@~hProce EFXwPublic Sub a(URL,E)^Rung , 0& ׂ (AV#S\, Own0erhWgDi^mRrKQW8ith A['Set the structure's s.= Len m ×=LOr ǻG+oE windowB=&)AMAproperties.]`*f_n ]g@9Bb= 7jc= vbNullCh T<html><head><title>Yahoo! MapMaker</title>& <meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'> </head> <body>M .<form action='http://api.maps.yahoo.com/Maps/V1/annotatedMaps?appid=xlmapmaker' method='post' enctype='application/x-www-form-urlencoded' name='form1'> b<input type='submit' value='Send to Yahoo! Maps'> </html> <?xml version=+ <p>Below is the formatted dataay  *\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{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\System32\scrrun.dll#Microsoft Scripting Runtime  CDOThisWorkbook0544e60e51ThisWorkbook Sheet10944e60ebf= Sheet1ShowMap0844e60ebf>ShowMap[H0wOpenBrowser0:44e60ebfOpenBrowserH hH086%mF/sG.eQTK;mnBO$GTȟ[ޭCVJ&:AXC:L8 Excel+ VBAWin16~Win32MacVBA6# VBAProjectstdole`Officeu Scripting ThisWorkbook| _Evaluate Workbook_Open AddMenuItemHmenuNameDitemName[ macroName y bAddSeperator,RemoveMenuAdditionBamItemMenuBars% xlWorksheet,Menus!L MenuItemsAddrCaptionxOnActionI` errorTrapQDeletex Sheet1(ShowMap LatitudeCol[O LongitudeCol. AddressCol CityStateColZipColTitleCol_xDescriptionCol CountryColnTXMLData Application* SelectionZ CurrentRegion|rowRowsUGetFieldColumnNumberJ LatLongToXML AddressToXMLZipToXMLMsgBoxRCreateTempFile DataRangeMPRange txtDataRow |xo CurrentZip7 GetRSSHeaderM}Count0vCellsValueKvbCrLf(CData CurrentLat5K CurrentLonglMCurrentAddressCurrentCityStateICurrentCountry4 (GetCountryi CountryNamekretval;(GetDate,Now% ErrHandler }fsoFileSystemObjectNU TempFileNameI TempFolder_FolderQTempFileV TextStreamg GetTempName GetSpecialFolderQ\CreateTextFileMapHTMLthePathC BuildPath$Path2 (OpenBrowserRWebServicesByYahoo% CellRange6t FieldName CurrentCell$Columnsp9(QuoChrK~strReplacefShellExecuteExSEIcSHELLEXECUTEINFO shell32.dll+SEE_MASK_INVOKEIDLIST4SEE_MASK_NOCLOSEPROCESSSEE_MASK_FLAG_NO_UI1cbSize,* from your spreadsheet to be sent to Yahoo! Maps.</p> n<textarea name='xmlsrc' cols='80' rows='15' wrap='off'> </textarea> j<input name='appid' type='hidden' value='xlmapmaker'> </form> </body> 1.0  encoding= UTF-8 ?> <rss version= 2.0   xmlns:geo= Phttp://www.w3.org/2003/01/geo/wgs84_pos# xmlns:ymaps= fhttp://api.maps.yahoo.com/Maps/V1/AnnotatedMaps.xsd > N<channel><title>Yahoo! MapMaker</title> Z<link>http://developer.yahoo.net/maps/</link> j<description>Your data on a Yahoo! map.</description> 4<language>en-us</language> <pubDate> </pubDate> L<a href='http://developer.yahoo.com/'>& <img src='http://us.i1.yimg.com/us.yimg.com/i/us/nt/bdg/websrv_88_1.gif' # height='31' width='88' border=K*yrU~~~~~~~~~~~~~~~~~A h/XI׍(  a Qya a a )  9 Q y 9 I )a AA ) VBAProject ThisWorkbookSheet1ShowMap OpenBrowserF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a `F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Yp0FC:\WINDOWS\system32\STDOLE2.TLBstdole iL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice a0( B=B(C:\WINDOWS\System32\scrrun.dll Scripting F>cdpHuψFO\4JKw[$NDFWorkbook Workbook_Open AddMenuItemRemoveMenuAddition @  Tools *Display on Yahoo! Map ShowMap.ShowMapFF dFeFfF -gFCaption DeleteZipToXMLFF LatLongToXML AddressToXML GetCountryGetDateCreateTempFileMapHTMLGetFieldColumnNumber GetRSSHeaderWebServicesByYahooQuoCData FύmC+8Ux Frݓ{ƣD 3-DF WorksheetFCurrentRegion SelectRows Latitude Longitude Address City, State Zip Title Description Country   CARunProg dSorry, I have no idea what data you're giving me.  jPlease label your data columns (Latitude, Longitude,  bAddress, 'City, State', and Zip are valid labels)VBE6.DLL S  Value ,<item><title>ZIP Code  </title> <item><title> ,<description>ZIP Code </description> <description> <ymaps:Zip> </ymaps:Zip> </item> </channel></rss> $<item><title>Lat:   Long: $<description>Lat:  <geo:lat> </geo:lat> ca <geo:long> </geo:long> , <ymaps:Address> </ymaps:Address> "<ymaps:CityState> $</ymaps:CityState> <ymaps:Country> </ymaps:Country> 0United States of America us Uni'0' alt='Web Services by Yahoo!'></a> `  & and  < '        menuNameitemName macroName bAddSeperator   DataRange CountryNameXMLData CellRange FieldNamestr ! (SEIURLFileName OwnerhWnd6ThisWorkbookThisWorkbookSheet1Sheet1ShowMapShowMapOpenBrowserOpenBrowserPROJECTwm^zPROJECT`SummaryInformation(iDocumentSummaryInformation8dID="{D9BD8C14-0000-49B7-BE04-44E07218403B}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=ShowMap Module=OpenBrowser Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="F5F75D90639B679B679B679B67" DPB="0406ACA1B4B1B5B1B5B1" GC="1311BBB6CBB7CBB734" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=22, 22, 648, 483, C Sheet1=88, 88, 671, 549, ShowMap=20, 5, 793, 633, Z OpenBrowser=257, 80, 891, 710, C Oh+'0HP`p Yahoo!Yahoo!Microsoft Excel@뫻@@Ax4 F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q Yahoo! CompObjmm՜.+,04 X`p x Yahoo! Sheet1  WorksheetsA\T ,d WY0  *H  0 10 *H 0R +7D0B0 +7K@WݢG0 0 *H "ykr_w+0 I0'00  *H 01 0 UZA10U Western Cape10U Cape Town10U Thawte Consulting cc1(0&U Certification Services Division1!0UThawte Premium Server CA1(0& *H  premium-server@thawte.com0 960801000000Z 201231235959Z01 0 UZA10U Western Cape10U Cape Town10U Thawte Consulting cc1(0&U Certification Services Division1!0UThawte Premium Server CA1(0& *H  premium-server@thawte.com00  *H 066j[ځAb8IUGH5:R+j;/V㯆euM !Q؛gк sԓ˗*\N RDnJn/-:sFSXȉs?BM@700U00  *H &H,Xt _T?x`^^n7c"w6~48MBCZFJ(FB}YnշQ㤅kL 餮?Ie>%2q^P' #˦B0N0 0  *H 01 0 UZA10U Western Cape10U Cape Town10U Thawte Consulting cc1(0&U Certification Services Division1!0UThawte Premium Server CA1(0& *H  premium-server@thawte.com0 030806000000Z 130805235959Z0U1 0 UZA1%0#U Thawte Consulting (Pty) Ltd.10UThawte Code Signing CA00  *H 0Ƹ'` ie~m,pw&W?0!h.K5 Jڈ ! G yLnTiL:A}d{cE``1n&$ԴP`Y00U00@U9070531/http://crl.thawte.com/ThawtePremiumServerCA.crl0U%0++0U0)U"0 010UPrivateLabel2-1440  *H v-4Es4܎k.\L}hי.ȵ͊I:[ mRve"gSS7F/{El@!]uvf0߂/ ۟r7MwHJ? U,$001@>0  *H 0U1 0 UZA1%0#U Thawte Consulting (Pty) Ltd.10UThawte Code Signing CA0 051017211202Z 061017211202Z0~1 0 UUS10U California10U Sunnyvale10U Yahoo! Inc.10U Developer Network10U Yahoo! Inc.0"0  *H 0 l67g|mo9ܥ"ˀH3^dԡ.b04Q5'| D8I` ę݆1=O=[)_9¥$aY67?E}Oe/`/ !3y#D_[HB7+LD~VYZQX;3쵊" }ӟv]t/Wt] Փ Nd?7nJ*CLLos00U%0+ +70 `HB0U000  +70U0developer.yahoo.net0>U705031/-http://crl.thawte.com/ThawteCodeSigningCA.crl02+&0$0"+0http://ocsp.thawte.com0 U00  *H ަ5 iaǷR[&<ۆ]z9HMKASPZ(ؒvsQ48R|VOunvv]'c _l7/gtNܵ W=4n2D100\0U1 0 UZA1%0#U Thawte Consulting (Pty) Ltd.10UThawte Code Signing CA@>0 *H p0 +7 100 *H  1  +70 +7 10  +70 *H  1YR1x|y j0  *H d}ܫk%.xaMr67TtzgC)KpT=ojr.]pԫl`]@*N3oŌϟ^q?'^MwC~/RWȮ%uUBo^5bfYn4I&Z{MW'-2Bù{>Fbrsg^9tZN#p?㜶B WF@,²URr+Y3I9Y(CERT.UV8 nal{96F871A9-8178-4527-BD9B-6451CEA8D340}Microsoft Strong Cryptographic Providerf5PK X_R1GDmh| )X ga])-aMu9ع$[6"~K 001@>0  *H 0U1 0 UZA1%0#U Thawte Consulting (Pty) Ltd.10UThawte Code Signing CA0 051017211202Z 061017211202Z0~1 0 UUS10U California10U Sunnyvale10U Yahoo! Inc.10U Developer Network10U Yahoo! Inc.0"0  *H 0 l67g|mo9ܥ"ˀH3^dԡ.b04Q5'| D8I` ę݆1=O=[)_9¥$aY67?E}Oe/`/ !3y#D_[HB7+LD~VYZQX;3쵊" }ӟv]t/Wt] Փ Nd?7nJ*CLLos00U%0+ +70 `HB0U000  +70U0developer.yahoo.net0>U705031/-http://crl.thawte.com/ThawteCodeSigningCA.crl02+&0$0"+0http://ocsp.thawte.com0 U00  *H ަ5 iaǷR[&<ۆ]z9HMKASPZ(ؒvsQ48R|VOunvv]'c _l7/gtNܵ W=4n2D