format Ranges and Columns in Macro, for all worksheets

Hi All

I have the following Macro which requires some additional code. I would like to be able to adjust the widths of certain columns and change formatting of certain ranges :

1. Decimal to 2 places
2. Percentage Format
3. And to centre align text in certain columns

Thanks in advance

Sub Help_ Formatting()
my = ThisWorkbook.Worksheets.Count
Do Until ActiveSheet.Name = my
Dim cl
For Each cl In Range("AB2:AB20")
    With cl
        If .Value = 1 Then
            Range("I" & .Row).Interior.ColorIndex = 45
            
        End If
    End With
Next cl




On Error GoTo AnyOther
ActiveSheet.Next.Select
Loop
AnyOther:
End Sub