Dick,
I replaced the line with the new code but I now get a "Compile Error:
Syntax error" and the debugger highlights the first line of the new
lines:
If Sheet1.Range("A65536").End(xlUp).Address = $A$1 Then
Also, when I copied and pasted the new lines into the module window, the
font color of the first line automatically changed to red.
Regarding your other points, the worksheet contains data from A2 to G17
with the header in A1 to G1.
Thanks a lot for the explanation on Range("A2").End(xlDown), etc. I'm
slowly starting to get a feel for what the code means. Thanks again,
Edward
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!