VBA Question - Convert Text to Numbers

[rollnation2]

I need to convert a few columns of raw data from text to numbers.
Using the following code works perfectly on column A. I need to perform the same conversion on columns D and S.
How do I modify the following VBA to convert column D and S?

Sub ConvertTextToNumber()
Set Rng = ThisWorkbook.Sheets("Sheet1").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
With Rng
.NumberFormat = "General"
.Value = .Value
End With
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
Just repeat the code for the other two columns.

 

[rollnation2]

Hi & welcome to MrExcel.
Just repeat the code for the other two columns.

Thanks I figured it out, silly question... I used this code

Sub ConvertTextToNumber()
Set Rng = ThisWorkbook.Sheets("Sheet1").Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
With Rng
.NumberFormat = "General"
.Value = .Value

End With

Set Rng = ThisWorkbook.Sheets("Sheet1").Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row)
With Rng
.NumberFormat = "General"
.Value = .Value

End With

Set Rng = ThisWorkbook.Sheets("Sheet1").Range("S2:S" & Cells(Rows.Count, 1).End(xlUp).Row)
With Rng
.NumberFormat = "General"
.Value = .Value

End With

End Sub

 

[Fluff]

Glad you sorted it & thanks for the feedback.

 

[rollnation2]

Glad you sorted it & thanks for the feedback.

Follow up question - this worked for me last week. I am trying to run the VBA from my personal macro workbook on another open workbook. It runs but does not work on the workbook I have open.
Any thoughts on why the VBA would not be working from my personal macro workbook on another open workbook?

 

[Fluff]

You need to change ThisWorkbook to ActiveWorkbook

 

[rollnation2]

You need to change ThisWorkbook to ActiveWorkbook

Thank you Sir!!!

 

[Fluff]

You're welcome & thanks for the feedback.