glad to help

--
Don Guillett
SalesAid Software

"Stuart" wrote in message
...
That worked, many thanks.

now, if I could just find how to achieve the same,
but without converting to upper case.

Regards.

"Don Guillett" wrote in message
...
try it with c.value=s

--
Don Guillett
SalesAid Software

"Stuart" wrote in message
...
For Each C In myRng
With C
S = CStr(C.Value)
S = UCase(WorksheetFunction.Clean _
(WorksheetFunction.Trim(S)))
C = S.Value '*
.WrapText = True
.Rows.AutoFit
End With
Next C

S is Dimmed as a String.
On the marked line (*) I'm getting an Invalid Qualifier error message.

Why please?

Regards.