Hi here's what i recorded changing column width, row height, Font to 16 bold and horizontal text centre aligned.
[VBA]
Sub Macro1()
Columns("A:A").Select
Selection.ColumnWidth = 10
Rows("1:1").Select
Selection.RowHeight = 15
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
[/VBA]Regards,
SImon