Line code to convert number into value

[olympiac]

For Each rng In Range("A1:BZ1")
If rng.Value = "Column Name here" Then
rng.EntireColumn.Select
For Each xCell In Selection
xCell.Value = CDec(xCell.Value)
Next xCell
End If
Next rng
[Code/]
 
The code above converts number into value however if the column heading is selected the code doesn't work.
How can I modify it to exclude the column heading in the selction?
 
Thanks

 

[VoG]

Perhaps

For Each Rng In Range("A1:BZ1")
    If Rng.Value = "Column Name here" Then
    For Each xCell In Rng.EntireColumn
        If IsNumeric(xCell.Value) Then xCell.Value = CDec(xCell.Value)
    Next xCell
    End If
Next Rng

 

[olympiac]

Thanks