Function ChangeCells()
Rows("5:5").Insert Shift:=xlDown
Range("A5:M5").NumberFormat = "0.00"
Range("A5:M5").Interior.ColorIndex = xlNone
With Range("A5")
.MergeCells = False
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.Interior.ColorIndex = 15
End With
End Function

Sub DoStuff()
'lots of stuff
Call ChangeCells
'do more stuff
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"FIRSTROUNDKO via OfficeKB.com" <u15639@uwe
wrote in message
H!!
Is it possible to name the below code extract and recall it by the name?

Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("A5:M5").Select
Selection.NumberFormat = "0.00"
Selection.Interior.ColorIndex = xlNone
Range("A5").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
.Interior.ColorIndex = 15
End With

Thanks in advance
Darren