I need update one cell which includes original text and new text.

For example, sheet1 and cell A1 has text " Here we are"
I need add new text " Yes, this is my place" to make Cell A1 contains
"Here we are Yes, this is my place"

Any code example to do this?

Your information is great appreciated,

Aircode:

Sub AppendStringToCellA1
OriginalText = Sheet1.range("A1").value
NewText = OriginalText & " Yes, this is my place"
Sheet1.range("A1").value = NewText
end sub

"Souris" wrote in message
...
I need update one cell which includes original text and new text.

For example, sheet1 and cell A1 has text " Here we are"
I need add new text " Yes, this is my place" to make Cell A1 contains
"Here we are Yes, this is my place"

Any code example to do this?

Your information is great appreciated,

Thanks millions,


"Keith R" wrote:

Aircode:

Sub AppendStringToCellA1
OriginalText = Sheet1.range("A1").value
NewText = OriginalText & " Yes, this is my place"
Sheet1.range("A1").value = NewText
end sub

"Souris" wrote in message
...
I need update one cell which includes original text and new text.

For example, sheet1 and cell A1 has text " Here we are"
I need add new text " Yes, this is my place" to make Cell A1 contains
"Here we are Yes, this is my place"

Any code example to do this?

Your information is great appreciated,