Concatenate Two Cells in a third cell

[sharc316]

Hi,

This seems like a simple procedure but just cannot get this to work right. I would like to concatenate two fixed cells into the third cell.

For example:
Cell A1=Hello
Cell A2=World
Cell A3= Hello World

Thank you.

[mdmackillop]

=A1 & " " & A2

[sharc316]

Thank you mdmackillop. But how would I do this in VBA? This would be part of a Macro.

[Paul_Hossler]

Range("A3").Value = Range("A1").Value & Range("A2").Value

[mdmackillop]

... and with a space between

Range("A3").Value = Range("A1").Value & " " & Range("A2").Value

[sharc316]

thanks Paul. I have it in a file with multiple works sheets. These cells are located on shee1. I'm putting Sheets("Sheet1") in front of your code but cant seem to make i work. Would this be the right approach?

[Paul_Hossler]

Expanding on Mac's ...

Without explicitly specifying a worksheet, as is it will use whatever the ActiveSheet is

This is specific to Sheet1



Worksheets("Sheet1").Range("A3").Value = Worksheets("Sheet1").Range("A1").Value & " " & Worksheets("Sheet1").Range("A2").Value



or to save a little typing



With Worksheets("Sheet1")
.Range("A3").Value = .Range("A1").Value & " " & .Range("A2").Value
End With

[sharc316]

Thank you Paul!