Hi,

I am trying to write a macro do automatically format 6 cells in a row.
This I've managed, but find I'm stuck on the next bit. I want the
macro to repeat the format in the next row (and subsequent rows) until
the row has no data in it. The macro so far is

Range("F18:J18").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With

End Sub

I want to repeat this until cell F in the next row is empty. I suspect
I need something like a "do until" loop, but can't see how to write it
as all the examples I've seen don't seem to cover formatting.

Can anyone please point me in the right direction to get this
achieved?
--
Cheers

Peter

Please remove the invalid to reply