Thanks will try them all to see what works the best

Greg
"Tom Ogilvy" wrote in message
...
Just some added info:
If the cells look as you want, you could simplify that to

Range("Whatever").Value = Range("A1").Text & " " & Range("B5").Text
or
Range("Whatever").Value = Trim(Range("A1").Text) & " " & _
Trim(Range("B5").Text)


Text displays as the cell displays
Value displays what is actually stored in the cell.

If you want Dave's solution to return what you stated, you might want to
add

Suggestion = trim(Range("A1").Value) & " " & _
& lcase(format(Range("B5").value,"dd mmmm yyyy"))

--
Regards,
Tom Ogilvy


"Greg Brow" wrote in message
...
thanks worked a charm

Greg