Solved: Macro: Cell Formatting is Failing

[YellowLabPro]

[VBA]
Sub AlignGrid()
'
' To center sizing matrix
' Macro recorded 3/4/2007 by Doug Stroud
'
'
Dim rng As Range
Dim i As Long
Set rng = Application.InputBox("Select range with the mouse", Type:=8)
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.Name = "Arial"
.Font.Size = 10
.Font.Bold = False
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.ColumnWidth = 3
.RowHeight = 12.75
End With
End Sub
[/VBA]

Some of the cell properties are failing to change from the above code, specifically, ColumnWidth, RowHeight, Size, Font.Bold, Name, Horizontal.
Is my code setup incorrectly?

Thanks,

YLP

[Simon Lloyd]

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

[Norie]

Try replacing Selection with rng.

[YellowLabPro]

Bravo Norie,
That did the trick, thanks.

Simon, I was working on removing the non-essiental lines from the macro. Norie pointed out that the variable was the problem.


Thank you,

YLP