Something like this


With Sheet1
.Range("comments").Value = .Range("comments").Value & Chr(10) & _
.Range("first").Value & " " & .Range("last").Value & _
", " & Format(Now(), "mm/dd/yyyy hh:mm") & ": " & _
.Range("entry").Value
End With



Tim


"MarcusA" wrote in message
...
I am working on a project which I need help. I have two merged cells:

Two cells (name) contain the user's first and last name.

The next (entry) cell is used for entering data new data.

I have a fourth cell called comments.

I need a macro that when executed using a button, appends data from the
entry and name cells to existing data in the comments cell. Additionally,
I
need to append a static date/time stamp after the name in the comments
cell.
Here is an example of what I am hoping the comments cell to look like:

Name cells: First name Last name

Entry cell: I tried the patch and it didn't work. What do I do now?

Comments cell: How do I reset my p/w? First Last 04-11-07 1:35pm ---
Click on the hyperlink to the left of the login name. First Last 04-12-07
8:15am --- I tried the linki and it did not work. Any other
suggestions?
First Last 04-12-07 8:30am