Ok to answer my own question, I think I have found a much quicker (and I literally mean it takes < 1 second to complete) solution...
It seems to work a treat!
Thanks anyway, I hope this thread can help someone in the future! Goodluck future person!Code:Sub ConvertSelectedText2Numbers() 'Convert all cells with numbers from text to numbers Dim rUsedRange As Range For Each rUsedRange In Intersect(ActiveSheet.UsedRange, Selection).Areas rUsedRange.Value = rUsedRange.Value Next rUsedRange End Sub
Bookmarks