title: Change normal text to time VBA
body: <p>Below is the code.</p>
  <ol>
  <li>The values in A:A is all set to general in the actual sheet (OTA)
  Need to change that to time format. IS there a way to get that done</li>
  </ol>
  <p>Any help is appreciated I'm just starting out with VBA. Thanks in advance</p>
  <pre><code>Dim ws, ws2 As Worksheet
  Dim LR As Long
  Dim TimeAdd As String
  
      'Delete the created sheet
      TimeAdd = &quot;00:15&quot;
      Application.DisplayAlerts = False
      Worksheets(&quot;Data&quot;).Delete
      Application.DisplayAlerts = True
  
      'Setting up the sheet and copy the data to the sheet &quot;Data&quot;
  
      Set ws = Sheets(&quot;OTA&quot;)
      Sheets.Add.Name = &quot;Data&quot;
      ws.Range(&quot;E:E&quot;).Copy Worksheets(&quot;Data&quot;).Range(&quot;A:A&quot;)
      ws.Range(&quot;O:O&quot;).Copy Worksheets(&quot;Data&quot;).Range(&quot;B:B&quot;)
      Worksheets(&quot;Data&quot;).Range(&quot;A:A&quot;).NumberFormat = &quot;0000&quot;   
  
      'Copying the formula thru the column &quot;C&quot;
  
      Set ws2 = Sheets(&quot;Data&quot;)
      LR = ws2.Range(&quot;B&quot; &amp; ws2.Rows.Count).End(xlUp).Row
      ws2.Range(&quot;C2:C&quot; &amp; LR).Formula = &quot;=B2+&quot; &amp; TimeAdd
  
  End Sub'''
  </code></pre>