How to repeat an action in other columns?

Hi all,

My question is rather simple I believe, but I'm really struggling to find a solution for that. Namely, I've got the following code that applies comma style in column J:

'J applying comma style
Dim Jcol As Long
Application.ScreenUpdating = False
Jcol = Cells(Rows.Count, "j").End(xlUp).Row
For j = 11 To Jcol
    Cells(j, "j") = Format(Cells(j, "j"), "#,###")
Next j

and I need to repeat it in other columns, e.g. M, X, AG. Note: these columns are not next to each other, which makes the case a bit more complicated cause we cannot specify a simple range for that. Can you help me with that? Many thanks in advance.

Vogelmann

It works, thank you. But the main problem remains unsolved - I'm sure there's a simple code for that but my memory isn't serving me well today..

thank you sixthsense, topic solved