A non VBA solution:

Select the column
1st step

• Ctrl+H
• Replace what @*
• With ( leave blank)
• Replace all

2nd step

• Ctrl+H
• replace what .
• With ,
• Replace all

There most certainly is a way to translate this to VBA without the necessity of loops

__________________
Using O365 v2503 - Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post