But then you should tidy it up to get rid of the garbage

Cells.Interior.ColorIndex = xlNone
Range("B5:D10").HorizontalAlignment = xlRight

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Lonnie M." wrote in message
oups.com...
Hi, if you record a macro and manually do what you describe it will
generate the following code:

Cells.Select
Selection.Interior.ColorIndex = xlNone
Range("B5:D10").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

HTH--Lonnie M.