Macro that can merge a column of cells into one cell separated by semi colon

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.

Please Login or Register  to view this content.

Can anyone help me with this?
Thanks

Please Login or Register  to view this content.

Column I

Thank you that works great! However, I did notice that it places a semi colon for each row regardless of whether there was a value in that cell. Do you know how to modify this code so that it only copies values if there is a value in the cell? I am trying to avoid a long list of semicolons. Thanks a ton.