Column format converted to Number, but showing as text - vba

Question

Ive a sheet which is generated using ADO select statement from another sheet. So I have to manually set some formatting. So here is the way I did.
With ThisWorkbook.Sheets("Invoice")
.Columns(1).Resize(.Rows.count - 1, 1).Offset(1, 0).NumberFormat = "yyyy-mmm"
.Columns(6).Resize(.Rows.count - 1, 1).Offset(1, 0).NumberFormat = "dd-mm-yyyy"
.Columns(10).Resize(.Rows.count - 1, 1).Offset(1, 0).NumberFormat = "0.00"
End With
Here column 1 and 6 am converting into two date formats. and column 10 I need to convert into Number format. But 1 and 6 converts fine. But 10 still showing as text and so alligned on left side. Screen grab disabled on our PC, otherwise I could share my actual screen. Hope its clear.

Answer 1

You need to parse it as General first using TextToColumns then apply your formatting. Something like below should work:
With .Columns(10).Resize(.Rows.count - 1, 1).Offset(1, 0)
.TextToColumns Destination:=.Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 1)
'DataType:=xlDelimited, _
'FieldInfo:=Array(1, 1)
.NumberFormat = "0.00"
End with
Or as #Whome commented, if it is all numbers, then you can simply:
With .Columns(10).Resize(.Rows.count - 1, 1).Offset(1, 0)
.Value2 = .Value2
.NumberFormat = "0.00"
End with
Edit1: Explained 1st code above. Using .Range("A1") as destination takes advantage of the Range.Range notation in Excel VBA. This means that you can re-index (not sure if this is the right term) a Range using Range Objects Range method. For example:
Dim r As Range: Set r = Range("B1:C10")
Debug.Print r.Range("A1").Address '/* this gives you $B$1 */
Degug.Print r.Range("B5").Address '/* this gives you $C$5 */
Illustration:
And applying that logic in your example:
.Columns(10).Resize(.Rows.count - 1, 1).Offset(1, 0) '/* refers to J2:J1048576 */
And Range("A1") of that range (or Cells(1) as Jeeped commented) is $J$2.
For your second inquiry, please refer to #Jeeped's comment:
"Sandeep brings up a valid point with his second inquiry. If you aren't going to force all delimiter parameters to false, perhaps DataType:=xlFixedWidth, FieldInfo:=Array(0, 1) would be better. You never know what has been left by the user in terms of TextToColumns delimiter(s) parameters."