Robert,

Here is some VBA. Select the cells to concatenate, then run it

Sub Sammanfoga()
Dim cell As Range
Dim stemp
For Each cell In Selection
stemp = stemp & Format(cell.Value, cell.NumberFormat)
Next cell
Set cell = Application.InputBox("select cell with mouse for concatenated
values", _
Type:=8)
cell.Value = stemp
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Robert57" wrote in
message ...

Tnx, but I have 365 cells to manually convert. But maybe I can send the
file to you? ;)

That is right I'm trying to make a calender.

regrds
Robert


--
Robert57
------------------------------------------------------------------------
Robert57's Profile:
http://www.excelforum.com/member.php...o&userid=29838
View this thread: http://www.excelforum.com/showthread...hreadid=495454