Sub JoinC()

Dim rSelected As Range
Dim c As Range
Dim sArgs As String
Dim bConcat As Boolean
Dim bOptions As Boolean
Dim sArgSep As String
Dim sSeparator As String
Dim rOutput As Range
Dim lTrim As Long
Dim sTitle As String


    'Set variables
    Set rOutput = ActiveCell
    bConcat = False
    bOptions = False
    sSeparator = ", "
    sTitle = "Join"
        
    'Prompt user to select cells for formula
    On Error Resume Next
    Set rSelected = Application.InputBox(Prompt:= _
                    "Select cells to create formula", _
                    Title:=sTitle & " Creator", Type:=8)
    On Error GoTo 0
    
    'Only run if cells were selected and cancel button was not pressed
    If Not rSelected Is Nothing Then
        
        'Set argument separator for join formula
        sArgSep = "&"
        
        'Create string of cell references
        For Each c In rSelected.Cells
            sArgs = sArgs & c.Address & sArgSep
            
            '& ActiveSheet.Name
            If sSeparator <> "" Then
                sArgs = sArgs & Chr(34) & sSeparator & Chr(34) & sArgSep
            End If
        Next
        'Trim extra argument separator and separator characters
        lTrim = 4 + Len(sSeparator) ' IIf(sSeparator <> "", 4 + Len(sSeparator), 1)
        sArgs = Left(sArgs, Len(sArgs) - lTrim)

        'Create formula
            rOutput.Formula = "=" & sArgs
    End If
End Sub