Macro won't format table

[Peter Kinross]

The attached table will not format using this macro.

Code: Select all

Sub Macro2()
    With Selection.Cells(1)
        .TopPadding = CentimetersToPoints(0.05)
        .BottomPadding = CentimetersToPoints(0.05)
        .LeftPadding = CentimetersToPoints(0.05)
        .RightPadding = CentimetersToPoints(0.05)
        .WordWrap = True
        .FitText = False
    End With
End Sub

If I delete the right column the table appears as I want without even using the macro.
I'm stumped.

[HansV]

Which cell should I select before running the macro?

[Peter Kinross]

The whole table. However the top and bottom rows usually seem to be fine, so I also try selecting all rows between those. Neither selections work.

[HansV]

The macro will only affect the first cell in the selection, not the entire selection:

Code: Select all

    With Selection.Cells(1)

So try this:

Code: Select all

Sub Macro2()
    Dim c As Cell
    Application.ScreenUpdating = False
    Selection.Tables(1).Select
    For Each c In Selection.Cells
        With c
            .TopPadding = CentimetersToPoints(0.05)
            .BottomPadding = CentimetersToPoints(0.05)
            .LeftPadding = CentimetersToPoints(0.05)
            .RightPadding = CentimetersToPoints(0.05)
            .WordWrap = True
            .FitText = False
        End With
    Next c
    Application.ScreenUpdating = True
End Sub

[Peter Kinross]

Oh boy, what a bewdy. In a million years, I would not have worked that one out.

ThanksHansStamp.gif