Change text to number in multiple columns using VBA

[Mariyka1]

Hello - I currently have this macro - although it is only looking at one column and converts the numbers stored as text to number values. I need it to convert columns 2 and 12 through 167 to number values but have no idea how to. Any help is appreciated!


Sub Button2_Click()


With Worksheets("12 Week Trend").Columns(12)
.NumberFormat = "0"
.Value = .Value
End With








End Sub

 

[Rick Rothstein]

Hello - I currently have this macro - although it is only looking at one column and converts the numbers stored as text to number values. I need it to convert columns 2 and 12 through 167 to number values but have no idea how to. Any help is appreciated!


Sub Button2_Click()

With Worksheets("12 Week Trend").Columns(12)
.NumberFormat = "0"
.Value = .Value
End With

End Sub

Try changing the red highlighted line of code to this...

With Worksheets("12 Week Trend").Range("B:B,L:FK")