Sorry about that, Archie. I don't work with Worksheet formulas that much.
Here is the corrected code.

Sub inptbx()
Dim firstCol As Long, scndCol As Long
firstCol = Application.InputBox("Enter First Column Number", "First
Column", Type:=1)
scndCol = Application.InputBox("Enter Second Column Number",
"SecondColumn ", Type:=1)
ActiveCell.FormulaR1C1 = "=TRIM(RC[" & firstCol & "]) & TRIM(RC[" &
scndCol & "])"
End Sub


"Archie" wrote:

Thanks, but I get application-defined of Object-defined error, so do I need
to add something else?

"JLGWhiz" wrote:

This is one way:

firstCol = Application.InputBox("Enter First Column Number", "First Column",
Type:=1)
scndCol = Application.InputBox("Enter Second Column Number", "Second
Column", Type:=1)
ActiveCell.FormulaR1C1 = "=TRIM(RC[firstCol])&RC[scndCol]"


"Archie" wrote:

I have the following simple code:

ActiveCell.FormulaR1C1 = "=TRIM(RC[5])&RC[11]"

eg above concatenates the cells 5 & 11 columns along.

What I want is for the user, by way of an input box, to be able to choose
the columns, say 2 & 6.

Can anyone help with this please?