Do like this,
1. Press Alt+F11 to get to the VBA Window
2. Goto to menu: InsertModule
3. Copy and paste the code (you might need to fix some loose row breakes or
spaces)
4. Write the Formula in your worksheet: =ConCatNonZero(A1:AX1) where it
should be
Done

Ola Sandström