hi,

Range(activecell, activecell.offset(0,6)).select

FSt1

"Tim Mills" wrote:

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