trouble with concatenate

[Luis939]

Im not sure if somethigns wrong with my compiler or im just using the concatenate function wrong, but i want to simply add the word "POPULATED" at the end of the activecell
i tried activecell.value = concatenate(activecell.text, "POPULATED&quot

but i keep getting an error sayin concatenate is not defined, what do i do, i mean should i even use that function, is there any other way to achieve what i need, thanks!

 

[IFRs]

Try activecell.value = activecell.text & "POPULATED"

 

[Luis939]

YOUR BEAUTIFUL! THANKS!

 

[SteveBausch]

Concatenate is strictly a worksheet function. There is a WorksheetFunction method, but you cannot invoke Concatenate.

Now, if you want a VBA Concatenate function, that isn't so hard to create. Pretty easy, actually.

Function Concatenate(ParamArray Strings()) As String
Dim OfThe, TheString
'Debug.Print UBound(Strings)
For Each OfThe In Strings
    'Debug.Print OfThe
    TheString = TheString & OfThe
Next
Concatenate = CStr(TheString)
End Function

From the Immediate pane:
?concatenate("first","second","third&quot
would return
firstsecondthird

 

[Luis939]

oh, i never realized about worksheet functions and things like that, i thought functions could be used in every aspect, thanks!