Is that the whole code needed or do I insert that instead of;
Range("d2")Select

It does not seem to be working though - I get the following erro
message on this line.

set rng = Worksheets("Data").Range("A:A).Find( _
Range ("B7")



Compile error:
Expected: List seperator or )


Once again many thank

--
Message posted from http://www.ExcelForum.com