<rdf:RDF
    xmlns:s='http://snipsnap.org/rdf/snip-schema#'
    xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
    xml:base='http://wiki.marandcustomsolutions.com/rdf'>
    <s:Snip rdf:ID='Excel'
         s:name='Excel'
         s:cUser='mpecher'
         s:oUser=''
         s:mUser='mpecher'>
        <s:content>1 Accessing the Last modified Date in a cell\\&#xD;&#xA;Ok Excel&apos;s normal functions don&apos;t have this.&#xD;&#xA;But its easier to create your own (at little googling and some changes ~~(good to see 4 years of VB weren&apos;t wasted)~~:\\&#xD;&#xA;&#xD;&#xA;{code}&#xD;&#xA;Public Function ModDate()&#xD;&#xA;ModDate = &quot;Last updated: &quot; + Format(FileDateTime(ThisWorkbook.FullName), &quot;ddd dd mmm yyyy at HH:nn &quot;)&#xD;&#xA;End Function&#xD;&#xA;{code}&#xD;&#xA;&#xD;&#xA;Cut and paste this into the Modules in the VB Editor (Tools &gt; Marcos &gt; Visual Basic Editor).&#xD;&#xA;Save this and Select Close and REturn to Excel.&#xD;&#xA;&#xD;&#xA;Now you have a user defined funtion you can use within your cells just like all the other functions (its even listed in the drop down).&#xD;&#xA;Its part of that workbook.&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;1 Merge two selection of cells into first&#xD;&#xA;{code}&#xD;&#xA;   &apos;**************************************************************************&#xD;&#xA;    &apos;Purpose:   Merge cells, retaining all data&#xD;&#xA;    &apos;Inputs:    Selection&#xD;&#xA;    &apos;Returns:   Merged values in the first cell of rRng&#xD;&#xA;    &apos;**************************************************************************&#xD;&#xA;        Public Sub MergeToOneCell()&#xD;&#xA;        &apos;J.E. McGimpsey, http://www.mcgimpsey.com/excel/mergedata.html&#xD;&#xA;        Const sDELIM As String = vbLf&#xD;&#xA;        Dim rCell As Range&#xD;&#xA;        Dim sMergeStr As String&#xD;&#xA;        With Selection&#xD;&#xA;            For Each rCell In .Cells&#xD;&#xA;                sMergeStr = sMergeStr &amp; sDELIM &amp; rCell.Text&#xD;&#xA;            Next rCell&#xD;&#xA;            Application.DisplayAlerts = False&#xD;&#xA;            .Merge Across:=False&#xD;&#xA;            Application.DisplayAlerts = True&#xD;&#xA;            .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))&#xD;&#xA;        End With&#xD;&#xA;    End Sub&#xD;&#xA;{code}</s:content>
        <s:mTime>2010-12-09 16:52:01.0</s:mTime>
        <s:cTime>2005-12-19 15:37:10.0</s:cTime>
        <s:comments
             rdf:type='http://www.w3.org/1999/02/22-rdf-syntax-ns#Bag'/>
        <s:snipLinks>
            <rdf:Bag>
                <rdf:li rdf:resource='#snipsnap-index'/>
                <rdf:li rdf:resource='http://wiki.marandcustomsolutions.com/rdf#tennis courts'/>
                <rdf:li rdf:resource='http://wiki.marandcustomsolutions.com/rdf#Version Control Systems/ClearCase/ConfigSpec'/>
                <rdf:li rdf:resource='http://wiki.marandcustomsolutions.com/rdf#Excel/'/>
                <rdf:li rdf:resource='#snipsnap-search'/>
                <rdf:li rdf:resource='#Siteminder'/>
                <rdf:li rdf:resource='http://wiki.marandcustomsolutions.com/rdf#Development/HTTP Header'/>
                <rdf:li rdf:resource='http://wiki.marandcustomsolutions.com/rdf#iStore Todo/Manual/Login stuff'/>
            </rdf:Bag>
        </s:snipLinks>
        <s:attachments
             rdf:type='http://www.w3.org/1999/02/22-rdf-syntax-ns#Bag'/>
    </s:Snip>
</rdf:RDF>

