Hello,

I need a macro that can take all the values of all the cells in a single column (I) and combine them into one cell (J11) separated by a semicolon.
I also need to macro to work across all worksheets except for "Sheet1", "Sheet2" and "Sheet3".

I found the following code which works well but it does not seperate by semi colon or work across all sheets.

 
Dim v As Variant
Dim s As String
Dim i As Long

' Fetch from sheet
v = Range("A1:A100").Value

' Concatenate into a single string
s = ""
For i = LBound(v, 1) To UBound(v, 1)
    s = s & v(i, 1)
Next i

' Put back on sheet
Range("B1").Value = s

Can anyone help me with this?
Thanks