Try code like the following:

Dim Rng As Range
For Each Rng In Selection.Cells
Rng.Value = Rng.Value
Next Rng

Select the cells containing the data, then run the code.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"CDB" wrote in message
...
I am currently using Microsoft 2000 and as part of my job
I need to download figures into a spreadsheet and do
analysis on these figures. The problem is that when I
download the figures they must get imported as text, ans
they are not recognised until I go through each cell
pressing the F2 key. I can have thousands of rows at a
time, so this can take quite long.

Is there any code I can use to just set up a macro to loop
through the cells with data in and press the F2 key?