Just remove the activecell.select statement.

--

HTH

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


"Tim Mills" wrote in message
...
Hi

I'd like to start a process on 6 adjacent highlighted cells but
"ActiveCell"
just changes the top left cell - how can I change this code to include
all 6?

TIA

Tim

ActiveCell.Select
Selection.Font.Italic = True
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic