Thread: *Add-In Help* Need help to make code into Add-In - List work

Hi guys,

I made some code to turn a list on Excel into something useable in SQL
What it does in an example:

(BEFORE MACRO)
A B
1 A
2 D
3 G
4 J
5 M

(AFTER MACRO)
A B
1 A 'A','D','G','J','M'
2 D
3 G
4 J
5 M

the code is here:

str = "'"
i = 1
cnt = 1

Do While Range("A" & cnt).Value <> ""
    cnt = cnt + 1
Loop
cnt = cnt - 1

Do While Range("A" & i).Value <> ""

    If i < cnt Then
        str = str & "'" & Range("A" & i).Value & "',"
    ElseIf i = cnt Then
        str = str & "'" & Range("A" & i).Value & "'"
    End If

    i = i + 1
Loop

Range("B1").Value = str

Does anyone know how to make this a function that I can put onto my Menu Bar (has Format, Tools, Data, etc..)

Also, would anyone know how to make this into a tool I could just select a list anywhere and it'd create the list somewhere beside or below the selected area?

Thanks very much in advance!
-Torontoguy