VBA Number Format for Columns "J:M" across Multiple Worksheets

[kmd2201]

Hi -
I wrote the following code to be able to hit a macro button to format columns "J:M" with the "comma" format on all worksheets, but it doesn't work. When I click the Macro button, it highlights the columns but then doesn't format them. It doesn't error out either... What is my code missing?

Here is the code:

Private Sub CommandButton5_Click()


Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
With ws
Columns("J:M").Select
Selection.Style = "Comma"
End With
Next ws


End Sub

Thanks!

 

[Joe4]

This would for me:

Private Sub CommandButton5_Click()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        ws.Columns("J:M").Style = "Comma"
    Next ws

End Sub

 

[kmd2201]

This would for me:

Private Sub CommandButton5_Click()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        ws.Columns("J:M").Style = "Comma"
    Next ws

End Sub

Thank you, works like a charm now!

 

[Joe4]

You are welcome. Glad I could help.