Thread: Select data within a range and convert to text

Am very new to VBA and am using it to create a pivot chart in an worksheet. The first thing I have to do is select a range and convert the text within it to number. This is the text I have been using

    Range("F1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    For Each xCell In Selection
    If IsNumeric(xCell.value) Then xCell.value = CDec(xCell.value)
    ActiveWindow.DisplayZeros = False
    
Next xCell

This does work but it takes a long time and I was wondering if anyone would be able to advise if there's an easier way!

Thanks!

Keeping your approach, this should speed thing up significantly.

ActiveWindow.DisplayZeros = False
Application.ScreenUpdating = False

For Each xCell In Range("F1", Range("F1").SpecialCells(xlLastCell))
    If IsNumeric(xCell.Value) Then xCell.Value = CDec(xCell.Value)
Next xCell

Application.ScreenUpdating = True

As per forum rules, you should EDIT your post above and add code tags around your code, as I've demonstrated here.

Sorry. Am new to this too.

Am very new to VBA and am using it to create a pivot chart in an worksheet. The first thing I have to do is select a range and convert the text within it to number. This is the text I have been using

Range("F1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
For Each xCell In Selection
If IsNumeric(xCell.value) Then xCell.value = CDec(xCell.value)
ActiveWindow.DisplayZeros = False

Next xCell

This does work but it takes a long time and I was wondering if anyone would be able to advise if there's an easier way!

Thanks!

Is that right now?

No, I didn't want you to add a new (also incorrectly formatted) post, but to EDIT post #1 to add the code tags. See my signature for the correct tags, now you'll need to fix two posts! That's ok, it's good practice for you.