title: Running text2column for column A:A
body: <p>I am quite new to VBA scripting, but I have to perform the following actions:</p>
  
  <ul>
  <li>convert a csv file to xls one</li>
  <li>in the saved xls file to perform the following actions: 
           1. To run Text To Columns  for the data
           2. To define the type of each column ( amount , date, text). 
           3. To make the first 0 in Amount&amp;Date columns be visible ( e.g. "04521.6823" &amp; for date "05/02/2020"). Here  I plan to use .NumberFormat option. </li>
  </ul>
  
  <p>I succesfully converted the file, but cannot perform Text2Column part. 
  My data is only in column A, separator ";", only on sheet1. 
  Here is the latest code I ran:</p>
  
  <pre><code> Sub text2columns()
      Dim rg As Range
  
      Set rg = Range("A:A").CurrentRegion
  
      rg.TextToColumns Destination:=Range("A:A"), ConsecutiveDelimiter:=True, DataType:=xlDelimited, Space:=True
  
      End Sub
  </code></pre>
  
  <p>Can anyone help me? I know questions are basic, but need some help to continue.
  Thank you!</p>