Hi Jim

sorry it wasn't meant to be a multiple post - i posted it there and then
realised that i needed a code rather than a once off solution as this data
is going to be a regular import - so your solution is the one i need to
implement.

Regards
julieD

"Jim Cone" wrote in message
...
JulieD,

I just discovered that Ragdyer posted an answer to you in the Misc group
His answer is easier to implement.
Multiple posts can aggravate people...

Regards,
Jim Cone
San Francisco, CA

"Jim Cone" wrote in message
...
Julie,

I assume you have leading or trailing spaces in Column B that
you want to retain so...
Select the range to trim or select multiple ranges and use this
revised code. It first goes to each area selected and
runs the Trim function and then moves to the next selected
area and does the same.

'------------------------
Sub GetThemCrittersII()
Dim objCell As Range
Dim objArea As Range

For Each objArea In Selection.Areas
For Each objCell In objArea
If Not IsError(objCell) And Not objCell.HasFormula Then _
objCell.Value = Trim$(objCell.Value)
Next 'objCell
Next 'objArea

Set objCell = Nothing
Set objArea = Nothing
End Sub
'-------------------------------
Regards,
Jim Cone
San Francisco, CA

"JulieD" wrote in message
...
Hi Jim
thanks so much ... this has saved me HOURS of work ...
is it possible to easily exclude a range - the used range of the
workbook is
A1:J464 (maybe more / less rows in the future) and i need to it for
everything EXCEPT column B
cheers
JulieD

- snip-