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
Bookmarks