I worked it out!

Do
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Loop Until Range("a1") 0

End Sub

I am so pleased. No offence Bob, but you explanation for a complet
novice like me was a bit complicated but thanks for trying! I know th
code worked but I did not understand it

--
jim2

-----------------------------------------------------------------------
jim27's Profile: http://www.excelforum.com/member.php...fo&userid=1537
View this thread: http://www.excelforum.com/showthread.php?threadid=26996