Text to Columns in Macro

[JimM]

I'm trying to create a macro so that it converts a column of text to a number by using Text to Columns. I've created the macro using the recorder which worked fine but when I run the macro itself it's not updating the cells ie they still appear to be text. However if I then go into a cell, the cell descriptor shows it as General and if I F2 to edit it changes the cell to a value.
I've tried creating it as delimited and fixed width but still no joy
Any ideas of why the macro is not working as it should?

Thanks


The relevant code I'm using is

Sheets("DFC").Select
Columns("S:S").Select
Selection.TextToColumns Destination:=Range("S1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

 

[Alex Blakenburg]

If you want to pursue the macro option give this a try:

Sub ConvertValue()
    With Sheets("DFC")
        With Intersect(.Columns("S:S"), .UsedRange)
            .Value = Application.Substitute(.Value, "£", "")
        End With
    End With
End Sub