VBA Convert textnumber to number format

[malleshg24]

Hi Team,

I want to convert the number which are in text to number. I use below code it works.
is there any other way to shorten this code, Thanks.

Sub test()


Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Sheet1")


With sh
.Columns("A").NumberFormat = "General"
.Columns("A").TextToColumns , xlDelimited, , , , , False, False, False


.Columns("C").NumberFormat = "General"
.Columns("C").TextToColumns , xlDelimited, , , , , False, False, False


.Columns("H").NumberFormat = "General"
.Columns("H").TextToColumns , xlDelimited, , , , , False, False, False




.Columns("E").NumberFormat = "General"
.Columns("E").TextToColumns , xlDelimited, , , , , False, False, False


.Columns("F").NumberFormat = "General"
.Columns("F").TextToColumns , xlDelimited, , , , , False, False, False


End Sub


Thanks in advance for your help!!!

Regards,
Mallesh

[Jan Karel Pieterse]

Only slightly:

Sub test()
With ThisWorkbook.Worksheets("Sheet1")
.Columns("A,C,H,E,F").NumberFormat = "General"
.Columns("A").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("C").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("H").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("E").TextToColumns , xlDelimited, , , , , False, False, False
.Columns("F").TextToColumns , xlDelimited, , , , , False, False, False
End Sub