title: trying to combine a row into one cell with dates
body: <p>ok so im trying to create a macro that will take my set cells and insert them into html code...</p>
  
  <p>what i have is cells with my html code and cells with my values that i need... first it ref. the first html J2 and places it in B13 next it ref. my value that i need and places it in C13 and so on... it gets to a file name that is based off of a date so lets say for date is 6/20/2012 it would take that and format the next cell to pull that date but format the text to go to 20120620.mp3... when the ref. code takes that cell it takes the format... but when i run another script to join all the cells together to one it changes the date to the original format of 6/20/2012... i thought maybe it pulling the original formatting but i changed the original format of the first date cell and it still keeps it in 6/20/2012 format.</p>
  
  <pre><code>&lt;div id="messageDate"&gt;6/20/2012&lt;/div&gt;&lt;audio id="audio" preload="none" controls="controls"&gt;&lt;source src="sermons_mp3/mp3/6/20/2012" type="audio/mpeg"&gt;&lt;/audio&gt;
  </code></pre>
  
  <p>it should look like this</p>
  
  <pre><code>&lt;div id="messageDate"&gt;6/20/2012&lt;/div&gt;&lt;audio id="audio" preload="none" controls="controls"&gt;&lt;source src="sermons_mp3/mp3/20120620.mp3" type="audio/mpeg"&gt;&lt;/audio&gt;
  </code></pre>
  
  <p>im using this code to combine the cells</p>
  
  <pre><code>   Sub JoinText()
  myCol = Selection.Columns.Count
  For i = 1 To myCol
  ActiveCell = ActiveCell.Offset(0, 0) &amp; ActiveCell.Offset(0, i)
  ActiveCell.Offset(0, i) = ""
  Next i
  End Sub
  </code></pre>
  
  <p>and ive tried this one too</p>
  
  <pre><code>     Function ConcatinateAllCellValuesInRange(sourceRange As Excel.Range) As String
          Dim finalValue As String
  
          Dim cell As Excel.Range
  
          For Each cell In sourceRange.Cells
              finalValue = finalValue + CStr(cell.Value)
          Next cell
  
          ConcatinateAllCellValuesInRange = finalValue
      End Function
      Sub MyMacro()
          Range("b14").Select
          ActiveCe
  
  ll.FormulaR1C1 = ConcatinateAllCellValuesInRange([b13:r13])
  End Sub
  </code></pre>
  
  <p>and all with the same results... i hope this helps and someone can give me some help on this... i am totally new at VBA and have no idea what im doing... what i have done has been me just playing and getting lucky... lol</p>
  
  <p>thanks</p>