VBA Concatenate

Hi, I wonder whether someone may be able to help me please.

I'm trying to add a title to a particular cell, in this case cell B5, where the value is a combination of text and a cell value.

I wasn't sure how to do this, but after searching various online pages I've come up with the code below:

 With Worksheets("All CTO Ending Assignments").Range("B5")
        .Resize(1, 5).Merge
        .ActiveCell.Formula = "=CONCATENATE(""B&C Flexible Resources With Assignments Ending 4 Weeks From "", (B3)))"
        .Cells(1, 1).Offset(2, 0).Resize(, 5).Value = Array("Staff Name", "Portfolio", "Project/Enhancement Name", "Forward View Ref", "Activity End Date")
    End With

Unfortunately though, this isn't working, and I recieve an error on this line:

 .ActiveCell.Formula = "=CONCATENATE(""B&C Flexible Resources With Assignments Ending 4 Weeks From "", (B3)))"

I just wondered whether someone may be able to look at this please and let me know where I've gone wrong.

Many thanks and kind regards

Hi @romperstomper, thank you very much for taking the time to reply to my post.

I'm actually wanting the value in the cell please.

Many thanks and kind regards

Chris

Hi @romperstomper, thank you very much for this, it works great.

All the best and kind regards

Chris

Hi @Hawkeye, thank you for taking the time to come back to me with this. It is greatly appreciated.

Kind regards

Chris