mymax = Application.Max(Range("N:N,Y:Y,AJ:AJ,AW:AW,BH:BH,B S:BS,CD:CD"))

if you mean for that specific row (assume i is the row you want to check)

set rng = Intersect(rows(i),Range("N:N,Y:Y,AJ:AJ,AW:AW,BH:BH ,BS:BS,CD:CD"))
myMax = Application.Max(rng)



--
Regards,
Tom Ogilvy

"Gareth" wrote in message
...
I want to find the maximum value in columns N, Y, AJ, AW, BH, BS and CD

It can from 1 to 10, depending on th value I want to insert a row below.

I had thought of starting it sometrhing like this:

For Each cell In Range("A2:A" & Range("A65536").End(xlUp).Row)
'find the max minus 1
cell.offset(1,0).resize(max minus 1,1).EntireRow.Insert
Next cell

I cannot work out the code to calculate the max -1 figure.

Any help gratefully received.

Gareth