assistance to amend vba formating code to apply to all sheets at once

I have a workbook with lot of sheets which has same formats.

I used the code below to format the active worksheet at specific columns .

How to use the code in more elegant way to format all sheets at once without going through sheet to sheet manually.
Note row 1 are headers .

Data starts at row 2

Data range varies per sheets

Please Login or Register  to view this content.

Loop through sheets and use the with qualifier getting rid of the selects.

Please Login or Register  to view this content.

Give this amended code (untested) a try:

Please Login or Register  to view this content.

Need to add ws. in front of each selection line.