Hi Steve,

Here's something no quite as cryptic

It is not clear whether it was one, or all three, of the suggested solutions
which engendered your pejorative description, but none of these strikes me
as cryptic and all avoid the need to loop.

Incidentally, your code would also need to assign a value to the Lrow
variable.

---
Regards,
Norman


"SteveM" wrote in message
oups.com...
Here's something no quite as cryptic:

Dim rng as Range, cell as Range
Set rng = Range("E6:E" & Lrow)

For Each cell in rng
cell = cell * -1
Next