DateValue Returning British Units
<p>I download a spreadsheet daily that has columns of dates formatted as mm/dd/yyyy that my Excel does not recognize as dates. I need to convert them to usable dates via a macro.</p>

<p>I found a very useful post here that I tweaked and came up with the following:</p>

<pre><code>    'DateValue Cells
Dim v As Long, vCOLs As Variant
vCOLs = Array("E", "F", "G", "H", "I", "L", "M", "Q", "R")
With ActiveSheet
    For v = LBound(vCOLs) To UBound(vCOLs)
        If CBool(Application.CountA(.Columns(vCOLs(v)))) Then _
            .Columns(vCOLs(v)).TextToColumns Destination:=.Columns(vCOLs(v)), _
              DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)
    Next v
End With
</code></pre>

<p>The result is flipping the date into dd/mm/yyyy leaving my data incorrect and unusable.  I read that I could do a text-to-columns, break it up, and put it back together, but with 9 columns of dates already that seems to be too many steps.</p>

<p>Any ideas as to how to fix this?</p>