Change text to values and adjust column location

[Lonney]

Hopefully you can help me get this figured out!!

DoEvents
Range("GW:GW, JC:JE").NumberFormat = "0.00"         'choose number format here
On Error Resume Next
For Each cell In Range("GW:GW, JC:JE").SpecialCells(xlConstants)
    cell.Value = CDbl(cell.Value)
Next cell

I am using the same code as above, but changed the columns. If I use the columns above, no issues. If I use the new columns (same data in the columns) Excel freezes up. Error: Excel cannot complete the task with available resources. Keep in mind, that if I run the same code on the same data, there are no issues. I only changed the column from ("GW:GW, JC:JE") to ("D:F"). Been at it for 3 hours, changing things around ect. to no avail!!!!

My Code:

DoEvents
Range("D:F").NumberFormat = "0.00"         'choose number format here
On Error Resume Next
For Each cell In Range("D:F").SpecialCells(xlConstants)
    cell.Value = cell.Value * 1
Next cell