If you really want to show the function in the cell :-
Code:
ActiveCell.Formula = _
"=concatenate(""" & add1 & """,""" & add2 & """)"
Better is (no Select needed):-
Code:
Range("A8").Value = add1 & add2
-----------------------
Regards BrianB
Most problems occur from starting at the wrong place.
Use a cup of coffee to make Windows run faster.
It is easy until you know how.