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
I'm stumped.