I had more than one senior moment when I put in that line
check the order correction


sub cck()
rr=110
for st = 2 to 100
for prod = 2 to 27
if cells(st,prod,)="incorrect" then
cells(rr,1)=cells(st,1)
cells(rr,2)=cells(1,prod)
rr = rr+1
end if
next prod
next st
end sub
I don't know why you would get that particular error message
in Debug, what do you see when you put the cursor over the different
variables?

"Tibbs" wrote:


Ron - that does it... It needs a bit of editing afterwards, but it's
fantastic!

I'm intrigued, however, by the VBA solutions -

BJ - with the correction it works for about 3 cells and then says:

Runtime error '1004':

Application-defined or object-defined error

and then it highlights

Cells(rr, 2) = Cells(1, prod)

Bruce,

Your solution works very well, but my main data is 500 rows and 59
colums, do I have to extend the Select Case ActiveCell.Column portion
down to 500?

Thank you all for the time taken on this - I really need to badger work
to send me on an Advanged Formula/Array Formula/VBA for Excel course...

Chris


--
Tibbs
------------------------------------------------------------------------
Tibbs's Profile: http://www.excelforum.com/member.php...o&userid=15947
View this thread: http://www.excelforum.com/showthread...hreadid=380847