Help "naming" a user defined formula

[Vexorg]

Hi,

I having trouble naming the vba function I have created below:

    ActiveCell.Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=CONCATENATE(""'"",RC[-1],""'"","","")"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Function

I would like to name it ccbl. I know I need to define it similamr to Function ccbl(x as ActiveCell) or something like this.

Help please

 

[shg]

If you're intending to call it from the worksheet, it won't work. User-defined functions can only return values to the cells in which they appear.